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ERROR TYPEOUTS - REPORTED AT THE RETURN FROM THE DRIVER 


MISCELLANEOUS 
7.1 EXECUTION TIME 
7.2 Het TT PROGRAM 
7.3 DATA PATTERN 
PROGRAM DESCRIPTION 

8. i FORMAT OPERATION 
8.3 POSITIONER ERRORS 


PROGRAM LISTING 





Ms ge Bld 
eT Ne 


POP-11 ara et. (12K CORE) 
RH11 MASSBUS C R 
ONE OR MORE RPOY DISK DRIVES 


PRELIMINARY PROGRAMS 


ALL RPOY DIAGNOSTICS SHOULD HAVE PREVIOUSLY 
BEEN RUN SUCCESSFULLY. 


LOADING PROCEDURE 


USE THE STANDARD ABSOLUTE LOADER FROM THE 12K OR 
HIGHER BANK OF MEMORY. 


STARTING PROCEDURE 


STARTING ADDRESS 
LORD AND START AT ADDRESS 200 


RESTARTING ADDRESS 
LORD AND START AT ADDRESS 204 


RH11/RPO4 ADDRESSES 
HAS BEEN npperel ep TO i 176700_AS THE RH11/RPOY BOORESS; 
ADORESSES, ENTER 


THe PROGRAM 
THE VECTOR IS ASSUMED THESE 
PROPER ADORESS INTO THE PocaT TONGS) GIVEN BELOW. 


176700 RH11/RPO4 UNIBUS ADDRESS 
es4 RH11 INTERRUPT VECTOR ADDRESS 


SWITCH SETTINGS (SW=1) 
SwW1S ++ Ee ON Re O THE pPeRa TON IN PROGRESS 
tl POINTED T0 BY 
THE Pc HM OCATED ON THE STACK. 


LOOP ON THE C T CYLINDER AND TRACK--- 
_ THE USER TO LOCK ON A FAILING TRACK 


INHISIT ERROR TYPEOUT 


FORMAT (OR CHECK) CONTINUOUSLY 
PROCEDURE 


OPERATOR ACTION 
1. TURN THE re 10 DRIVE ON LINE. 
@. DISABLE THE WRITE PROTECT ON THE SELECTED DRIVE. 
- WAIT opera Se GHT INDICATION 
THE OPERA TO THE TYPED REQUESTS 
" BY INPUTTING THE FOLLOWING PARAMETERS: 
DEFAULT 
0 


Y 


0,0 * 
410,18 * 


WORST CASE # 


# NORMAL FULL PACK FORMAT OPERATIONS SHOULD DEFAULT 
TO THESE VALUES. 


rie. THE CHARACTER ’D’ WILL ASSUME THE DEFAULT 


CONTROL C’ INATION WILL RETURN USER BACK TO 
St T QURING ve peur REQUESTS. 


£W we 


SS. ALL LIMITS 


coe T0 BE WRITTEN ON EACH SECTOR 
CTED BY TYPING THE DIGIT ASSOCIATED WITH 
cree TYPED. 


THE PROGRAM MAY BE RUN th THe RESPONE MODE _BY 
ENTERING A °C’ (CHECK) Pe T SPONSE TO THE 
*PROGRAM MODE’ REQUEST HE NORMAL OR 
DEFAULT MODE ( roma $ & VERIFY). mis a 
1S SELECTED BY ENTERING A 'D’ (DEFAULT) OR 





G01 
y am "MODE” REQUEST 
Tee SHE At UR 


TTERN’ ENTRY AND THE 'D’ 


*DRINIT’ 


GRIVER. A THE EXTY OF THLs ROUT TRE The” AVAILABILITY 
HAS BEEN RECORDED IN TABLE DRVSTA. 


1. THE °??* MESSAGE IDENTIFIES AN ILLEGAL INPUT 
CHARACTER HAS BEEN TYPED. 


. THE '?? CYLINDER LIMIT EXCEEDED’ MESSAGE INDICATES 
THE USER REQUESTED A CYLINDER GREATER THAN 410. 


TE Sr RH ETE 


- THE ‘2? ENDING DSK ADRS MUST BE EQUAL TO OR GREATER 
THAN THE STARTING ADRS’ MESSAGE IS SELF-EXPLANATORY. 


ERROR TYPEOUTS- REPORTED WITHIN THE DRIVER ROUTINE 
#i ILLEGAL SUBSYSTEM INTERRUPT 








A SUBSYSTEM INTERRUPT OCCURED, BUT THE 'SC’ BIT IN 
RHCS1 IS NOT SET. 


* ORIVES ORIVE Uren 


CONTENTS OF THE ATTENTION SUMMARY REGISTER 


CONTENTS OF THE” AB ABOVE RECISTE 


THE ht eat DRIVE INTERRUPTED BUT THE DRIVE REGISTERS 
oe con T y ble * 


OF THE GISTE REAO 
S OF THE WORD READ 


RO. 
RD. WRO= 
A CONTROL PAR TECT ey TH Ve CONTROL 
UNIT WHEN THE Tro rcaTeo ; We TETER 
#4 CONTROL BUS PARITY 
T.AD= ADORESS OF REGISTER WRITTEN 
T.WD= CONTENTS OF WORD WRITTEN 
AD ine WORD READ BACK 
AODRESSED OR CTED A PARITY FRROR WHEN 
ite Rive pee TO WRITE INTO THE INDICATED 
VE REGISTER.” 
8S ATTENTION FROM AN UNAVAILABLE DRIVE 
= OF THE ATTENTION SUMNPRY REGISTER 


SONTENTS OF THE ABOVE REGISTERS = 


THE ATTENTION REGISTER HAS AN anerioy BIT SET FOR 
A DRIVE WHICH IS NOT CURRENTLY AC In AN OPERATION. 


ERROR TYPEOUTS- REPORTED AT THE RETURN FROM THE DRIVER 


81 WRITE ERROR 
DRIVE=X SN=X - DRIVE & SCRIAL NUMBER 
, TRK=XXX,XX - CYL & TRK WHERE ERROR OCCURED 


“40S1  RHER] RHER2 RHERS 
ABOVE REGISTERS 


THIS ERROR INDICATES 4 ows OCCURED WHEN TRYING 
TO BDO A WRITE HEADER & DATA COMMAND. THE PROGRAM 
ui NOT US ae THE CYL,TRK TYPED UNTIL 





RHCS] RHCS2 RHOS! RHER] RHERe RHER3 
CONTENTS OF THE ABOVE REGISTERS 


RETRIES UNSUCCESSFUL - SECTOR WOT ACCEPTABLE 
eh seat THE T BaoR Goce reel FX 


. IT SUGLE rs ste THE 
bis § SPECIE TS GUESTIONANE. IF 
THE PACE tf ac 


83 ee ton a 
a 8=X SN=X - ORT & + ne NUMBER 
YL, TRK=XXX,XX - CYL & TRK COMPARSION ATTEMPTED 


RHCS1 RHCS2_ RHOS1 RHERI RHER2 RHER3 
CONTENTS OF THE ABOVE REGISTERS 


REFORMAT PACK 
THIS INDICATES THE FAILURE TO READ A 
HEAOER cUcceSerULL THE ITIONER COULD HAVE 
REVARCED TOO Pan DURING THE FORMAT OPERATION. 
SOFTWARE HEADER COMPARE ERROR 
IVE =X pax ~ DRIVE & SERIAL NUMBER 
XPECTED- CYL, TRK=XXX, XX 
READ == CYL, TRK=XXX) XX 
REFORMAT PACK 


THIS ERROR SUGGESTS THAT THE POSITIONER FAILED 
TO ADVANCE DURING THE FORMAT OPERATION. 


oS eo ae oe Pee 


=X SN=X - DRIVE & SERIAL NUMBER 
RK=XXX, XX - CYL & TRK WHEN ERROR OCCURED 


MADE ON THE CURRENT DISK ADDRESS 
FORMAT IS TERMINATED, 


NUMBER 
N UNSAFE OCCURED 





RHCSi RHCS2 RHOS1 RHER] RHER2 RHER3 
CONTENTS OF THE ABOVE REGISTERS 


eh RE RT A EE 
Lt ae PARITY ERROR 
FORMAT TERN 


OM TRKEERR XX - CYL & TRK WHEN ERROR OCURRED 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE 
A REGISTER AND A PARITY ERROR HAS OCCURED EACH TIME. 


839 FATAL MASSBUS PARITY 
CYL, TRK=XXX,XX - CYL & TRK WHEN ERROR OCCURED 


THE PROGRAM CTED A MASSBUS PARITY ERROR 
WHILE ISSUI ‘pay CLEAR’ 1 Beet a yy at 


HALT AFTER ee IS REPORTED. 


8i0 SOFTWARE TIMEOUT - SYSTEM HUNG 
IVE&=X SN=X - DRIVE & SERIAL NUMBER 
CYL, TRK=XXX,XX - CYL & TRK WHEN OPERATION TIMED OUT 


RHCSe_ RHOS1 RHER! 2 RHER3 
S OF THE ABOVE REGIST 


FAILS TO C TE WITHIN 
nee THIS INDICATION 
SYSTEM IS EQUIPPED WITH EI 


EXECUTION TIME 

TO FORMAT ENTIRE pis I Porns eg 9 
MIMUTES. IT TAKES 1.2 0 FORMAT 

O€ CYLINDER PLUS 7 MS FOR EACH OOYCINDER SEEK. 
HALTING THE PROGRAM 

THE FORMAT T_BE_ INTERRUPTED ONCE UNDERWAY 
UNLESS A T 3 TO FOLLOW. 

DATA PATTERN 


T CASE PATTERN 
DATA 


SEQ 0009 


KO1 


FORMAT OPERATION 
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MAINDEC-1!-DZRPL-B 
Pll 


ZRPLB 
4921 
{]) 
(1) 
{}) 
(3) 
(1) 
{}]) 
(1) 
(]) 
(}) 
“S22 
4923 
4 
4 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
(1) 
(1) 
(1) 000000 
(1) 
(}) 
.1) 
4934 
4935 
4936 000206 
4937 
4938 000137 
4939 
4949 000337 
4A] 
4H2 
{1) 
(1) 
(1) 
(1) 001100 
£1) 
(1) 
(}j 177776 
(}) 
(}) 177774 
ian 
if 178s 
{}) 
{}) 
(1) 000000 
{}) 
(]) Bopooe 


001104 
001156 
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rh Toa ah -B “RPOY FORMATTTER PROGRAM” 


Proce BY R. MOORE/C. HESS 
‘STH S_ PROGRAM WA ING THE PDP-11 MAINDEC SYSMAC 
HAPROKAGE. CRAINDEC-11-DZ0AC-Ae) 


-SBTTL OPERATIONAL SWITCH SETTINGS 


# 

is SWITCH USE 

7 1S ERROR 

;# 14 LOOP ON THE CURRENT TRACK 
1% 13 INHIBIT ERROR TYPEOUTS 

# 0 LOOP THE PROGRAM 


-SBTTL TRAP CATCHER 


20 
UNUSFD LOCATIONS FROM 4 - 776 CONTAIN A “.+2,KALT™ 
NCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
ii, TON O CONTAINS 0°10 CATCH IMPROPERLY LOADED VECTORS 
;#STARTING ADDRESSES 
. 2200 
;#200 = NORMAL START 
JMP BEGIN 
;#204 = RESTART 
IMPs RESTRT 


-SBTTL BASIC DEFINITIONS 


jXINITIAL ADORESS OF THE STACK POINTER #*# 1100 #%% 

“EQUIV ENT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

EQUIV I0T: SCOPE ; BASIC FINITION OF SCOPE CALL 
77976 *:PROCESSOR STATUS WORD 

EQUIV PSW 

STKLMT= 177774 ; STACK LIMIT REGISTER 

PIRG= 177772 PROGRAM INTERRUPT REQUEST REGISTER 

Sune : 77570 HITCH REGISTER 


jHOENERAL PURPOSE REGISTER DEEINITIONS 
Ro= RAL REGISTER 


Ree 4 gee RECTETER 


SE@ 0010 


MO1 


SEG 0011 
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BASIC DEFINITIONS 


~D2RPL-B 


eames. 6 BeSeeeee 
ded gd tects 

= = Sera 
eoeeecs Sasceens 
iis KREEECEE 


RADA AAAAA 


;#"SWITCH REGISTER” Sulton DEFINITIONS 


ee ee ala cee x, 
onmeet PosS28eee MESSERBogs sc. . SSGSGuGY ~eeedane 
55 ee oe rs hdicid te mimi es fat ot ht ok ob ot A od A Sys nas 
grgacde Bpekagese To-cooSeagededeadasassasass Saneenee 


ee aes 


OR RR OS me em mm OE OE EE EE Oe OS = 
At tt late Rett Rett heart ete het ete betes ee hee hee lee hee oe hae ee oe oe oe ee ee ee ee ee ee 


ce ee ee ae ee ee ee he eh en he et et eet eet ee ee 


SEG 00:2 


NO1 
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-8 
BASIC DEFINITIONS 


-OZRPL 


-1) 
Pll 


INODEC 
OZRPLB. 


T) ##SCOPES# 


“Oo 


QTHER ERRORS 
ILLEGAL INSTRUCTIONS 
11-P STATUS REG 
11-P COUNTER BUFFER 
1l-L STATUS REG 
;RH11/RPO4 UNIBUS ADDRESS 
;RH11 INTERRUPT VECTOR 


PROGRAM INTERRUPT REQUEST VECTOR 
OF K 
OF K 
OF K 


5 
se 5 
S 
: 


3 *Scaeeenentnsmenenenenes 


176700 
eS4 


.SBTTL MAIN PROGRAM 


o MUAKO 
ts ae ere 


S83584S38s58 

888900 ratatmanae—atnetae—ae—es—e 
“JF U-OOMOOOMOOOMM 

UR) autho) “ >>>>>>>>>> 
ee wor 1-0 4 4 4 000 te 


oe 
SSS PEEP EEE See eee 
MOMmMmMmMmmmm:.-+-++sesene 


$=] 
.21100 


-SBTTL RPOY ADDRESSES 


: . 


SF 
35 
i 
oO 


040-4 0-404 4 4 0 oa aha dhadiasiasiasiasiasiasiad 


re: CPU" TRAP VECT 
C214 
7: 
, Sel 
Kgl 
= 
TPB=1 
sxc 


SRPVEC: . 





ee ss 


nf mem 73] re"! re eR ee ee i i a et ~~ rr 
POO Do HS OD ODO O OG OGD OF Od HOG ORG HF OG id HO OVOP OG OS ONS ¥ 
_ wot feet ee ee o et ee ee tt rt et eet Net ee eet eet ee eet Set eet eet ee Oe ee ee eet et 

bg : a > vT7T 


001100 
176700 
Qudes4 
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OZRPLB.PLi NRIN PROGRAM 


4368 001104 BEGIN: RE : LEAR. WORLD 
4969 O011 1 901100 x v asTACK, SP : UP SimeK 
4970 0011 l 116 000030 THNO. 9830 :SET UP EMT ADRS 
497 011 ig 900038 MOV F :SET PS TO 7 
4 001 126 i ll 1 MOV ; : 11/RPO4 ADDRESSES TO VECTOR 
4§73 D011 1 1102 013072 MOV SRPVEC‘RPVEC  :RHII VECTOR ADORESS 
4974 bo1 142 l 000240 OO1156 MOV ey RESTR ‘ALLOW RESTARTS AFTER INITIAL START 
4975 0011 005166 JSR \ : 60 Ive MESSAGE 
4976 001134 MTITLE "AORS OF ‘TITLE’ MESSAGE 
4977 1156 RESTRT: BR BEGIN i CHANGE To TO’ , Pear INITIAL START 
4978 001160 012706 001100 MOV aSTACK, SP :SET UP STACK 
4379 001164 00005 CLEAR WORLD 
4381 GO FINO OUT WHAT DRIVE 
4983 001166 O04S37 025166 MO JSR RS, TYPOUT GO TYPE MESSAGE 
4984 001172 007546 MUNIT “ADRS OF MESSAGE 
4985 001174 004737 o0Se4e JSR CTT GO WAIT FOR DRIVE 8 
4986 001200 O22700 OOD104 CMP #104, : IT (THe DEFAULT CHAR? 
4967 001204 001006 BNE 1§ iphone NOt DEFAULT CHAR 
49e8 001206 005037 b12suo CL USEL IVE 
4989 oolele 004537 166 JSR RS, TYPOUT GO TYPE DEFAULT DRIVE NO. 
331 7 Bisse ere} BR , GSEL snore. IF DRIVE ZERO IS THERE 
4993 001222 004737 00S3!4 18: ISR PC, NUNTST sIS ITA IGIT? 
4994 dotees go07$? BR : RETURN ree ate # NOT A DIGIT 
4995 001 000007 CMP 87,RO s38 IT ‘tpecieet 
499% 001234 103003 BCC 2s LECT BRIVE 
4997 001236 904737 OOS406 JSR PC, QUES TYPE ? 
4998 OO0le4d2 000751 Se MO * RE "Une 
4999 001244 010037 O12540 2s MOV RO, USEL “SAVE IN USEL 
5001 sTHIS CODE CHECKS IF REQUIRED DRIVE IS AVAILABLE 
S003 001250 004 0 GSEL: J PC, RPINIT T OR 
5004 co1ess ees 73106 013032 aor a! , SEEKFG is 0 ae IF NO BETINTZATION THe IN DRIVER 
s00s 001 13700 012540 USEL 
5006 O0le66 1 012752 TSTB = DRVSTACRO) iL OK A baive ares 
S908 001272 ml BRANCH 
50:2 001074 O0c4O4 BLT 1 3 BRANCH ANE On NONEXISTENT 
5013 bole76 004537 O0S166 RS, TYPOUT HYPE OFFLINE’ 
5014 601 007577 MOFFLN iAD 
501S 001304 000730 aR Ho # AGAIN 
S016 001306 006300 15: in et one INDEX 
6017 OCi210 005760 012762 TS ORVTYP(RO) IVE PRESENT? 
6018 001314 O01004 BNE ‘3 
5019 O01316 005166 JSR , TYPOUT Yee» IVE NOT PRESENT’ 
£920 O0i222 007621 MORNP 
5021 001 324 0007 BR Beanz, GO GE ORIVE NO, 2 AGAIN 
Soe O01 022760 020020 012762 2S: CMP ORVTYP(ROS 
S023 0012354 01410 BEQ -BR IF uigére SINGLE PORT 
S024 001336 022760 o24020 012762 CMP senoeo, ,DRVTYP(RO} 
© 901344 OO1404 BEQ :BR IF F URGREE DUEL. PORT 


SECTOR MODE 
CTOR MODE SELECTED 


MODE 


"CHECK FORMAT’ 
) ENTERED ” 


T 


8 
FORMAT 
YPE OUT 20 


MSG 
ny 


?99° = INVALID INPUT 
SS_OF MESSAGE 
IN ce 
CTOR AD SS IN 22 SECTOR MODE 
eels 


Y AGAIN 
i TYPEQUT MODE SELECTED 


aie Sar 


IF 


ORMAT & VERIFY ” 


;SET Nove T6 "FORMAT & VERIFY’ 


oF OUT IF FORMAT IS TO BE IN 20 OR ee SECTOR MOOE 


TADOR OF 


\ amd 
ae Ee Latta 


ie 
fe 


T & VERIFY’ OR ‘CHECK FORMAT’ 


>, WC 
3 MWC 


THE PROGRAM IS TO BE RUN IN 


2 
? 
< 
S 
2 
z 
& 


ORMA 
cage 


8<260. #22. 
a-< 

a-1, 

o 


177777 012544 4S: 


iG See 


ene anes 


Bshsessseeeoer Tee ees -_ ceca 
g 
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00S 166 
005166 


~OZRPL-8 


ht AER ER RR A RA ee ad Hd a 0 Od md ad te EE 


S88888888888a888S8888 S8888888Ssssssess 


ep ee Cnc cee 





SEQ 0015 
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C-11-DZRPL-8 
MRIN PROGRAM 


-Pll 


MAT 


0. 


My eee eters SERSEASE SE 


] 
’ 
’ 
’ 
’ 
’ 
’ 
s 
i] 
’ 
’ 
’ 
J 
’ 
’ 
’ 
i] 

’ 
’ 

’ 

’ 


vat 
= od So #£ 
: EY .- aay 7 
eae see ped g eS 
Bee, GS ies fe OE. 
a ee Terites 
te BE, great o Cae a oa 
Wz Woe tae oe Fy S55 eae ie Sgr 
Se sSy Ble # Bese 20 e Ege ee 8 ee ae te 
ngigrotaree © ESangek ag of ong troup he -ye2e ce 
gieesvatites 2 Biaviabay 5 ee eee 
a 


PARAMETERS - STARTING CYL & TRK 
ING CYL & TRK 


;GO GET 
ifto END 
NCT 
T 

C 
orf 


Ce ee ee 


MOV 

MOV 

CLR 

MOV , 
CLRB Ss FMT 
tae 

FATOPS 

BR 

TST 

BEQ 

BMI 

BR 


2 ra) wy 9 : = 6 4S 

uw or ry) 
SS c i 
S35 8S 3D oS rs) 
pat pik a 3 sof $3 PR ZB iain 3B wu 
agen a @ S Bs 8 é “ws S83 e 


5 oe Eee 


: 
SIOTIGENG «—SRESSREATNN © ERRRURRRERNRE 





pa 
iP 
_ 
i=) 
Be 
a=) 
oO 
A a ed Ot wd 4 HH we fom Inoue Meee Meonm Neeen Eeemn Rcaem Beem Renee Toone 0 dd md me dd md 4 ot s 


5 

8 

es 
S888888888sssss 8888888888 88888888883 S 
eft ata Sto te Ree SNA ttt ela tetulata eteteeth eaceea ata tarerarata| 


Son ban ban bon ben ten-hes- ten des ten ben ten besten ten ten ben tentententente-te-te-te-le>te-testenter ton testerle-tentesle=heolententertentententententententeste-tentententer. 
CSVESASVASDASDESDASDLSPLSVESDLSDASPASDASDASPLSDASDASPLSPASILSPLSDASPLSDESPASDASPASPASDASD ASDA SDESD ASDA SPLSDASDASDOSDASDLSDUSDESDASDASDASPRSDASDASB ASD LID ASDASD LSD 
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01 ADD TTRK SUB PARTICAL TRK 
pi5ees 012556 ADD Brak TT g + abD IN END TRACKS 
GO GET DATA PATTERN FOR FORMAT 
JSR RS, TYPOUT :GO TYPE ’SELECT PATTERN’ 
MSELP : OF MESSAGE 
J PC. TTI : T Y 
CHP #104, RO : 
RS, TYPOUT 
#2,R0 
BS nunTst 
M4 
RO, 83 
2 
PC, QUES 
MY 


RO, PSEL 
RS, TYPOUT 


i 


Se 


s 


piri 


FESRLBES & 
a3 = 
dd i 


sane 


dS Rt | 


Se 


;GO TYPE *STARTING FORMAT ON DRIVE @ xX’ 
Bo Oe ber te cHecK Meee Oe” 

JSR 43 rypour Fe + STORTING FORMAT ON DRIVE 8” 
MSF OU ADRS OF MESSAGE 


R 
q 


ie 


JSR RE. rye0uT ;TYPE STARTING CHECK ON DRIVE @’ 
JSR PC, URSM :GO PRINT DRIVE @ IN USEL 


Recrkhs Rrhmcnencs 


ee ee ee ee ee 


;THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 
;CLEAR DATA PATTERN A 


css 
= 


S 
5 
S 
5 
5 
S 
5 
5 
S$ 
5 
5 
S 
5 
5 
5 
S 
5 
S 
5 
S 
5 
S 
5 
$ 
S 
5 
5 
5 
S 
5 
5 
S$ 
5 
S$ 


BESRR POOLS SEIRRESB BId toll JIN So woen come o ws 


8 
—s 
Se8 


s 
: 
2 


f 


mS 
8 
® 


ST 
#165555 PATA 
8133333, PATR, 


;THIS CODE DUMP THE SELECT DATR PATTERN IN THE DATA BUFFER IN CORE 


MOV We, R 
MOV WBUFP RO 
MOV PATA,AL 


B 
Be 
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DZRPLB.P11 MAIN PROGRAM 
MOV PATB, Re 
MOV Rd. t )+ 
MOV , (RO)+ 
pee B 
C 
BNE 1 
;THIS CODE SETS UP FOR THE ACTUAL FORMAT 
: iz :GO SET UP 


ig Ti 


TIAL 
ERROR 


1$: 


KOCESCOOKK 
ODONBUILL LT 


RIVER TABLE 
Zé HEADERS IN THE SECTOR BUFFER IN CORE 
UP THE CLOCK IF AVAILABLE 


ees 
ee 
ae 


: 


OOK: 
R263 
= 
io 
= 


Siee FNTOPE+2 
RO, RPOY 


1$ 
FMTDPB+16 
2s 


£8- 
Sas 
i) 

=) 

98 

Pray 


ae 


ee he Le Le Le ee Le) 


a 


; THE CODE SETS UP FOR THE FORMAT CHECK 


714 : 8153, FMTDPB+2  ;SET WRITE CHECK 8 DATA COMMAND IN TBL 
was : RO, RPOY THE Tr Jus ron TED 


: 


:< 


a8 


an 


e537 
$238 
5239 
S240 
5241 
2545 
eos 
Se4b 
Se47 
Se48 
524g 
5250 
S251 
Se 
S2S4 
S2SS 
e367 
5258 
52S9 
S260 
S261 
eee 


ae 


NO 
aia teed : LAST SECTOR IN TRK 
FOR REMAINING SECTORS 
CHECK’ MODE * 


SeNeRe 
BBR ABR GR IRR AL ERAS 


dt 
3 
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6 O40000 177570 LOOPTS: BIT SBIT14,08SuR; F 008 Qn CURRENT TRK 
Sr fee Bail ae fece De 
1 WRHOR2 T SAME TRACK 
Ooess4 | Q00481 


006166 NXTRK: asf : gO08 FORMAT IF -IF NOT, SET UP NEXT 
; RETURN = GO DO QUICK CK 
NOT DONE - GO WRITE NEXT TRACK 
ACH CYLINDER FORMATTED CONTAINS THE 
. THE PROGRAM IS LOOKING FOR 
ONER ERRORS THAT MAY HAVE OCCIIRED DURING THE FORMAT. 


Do a et te el INDICATOR 
: T UP HEADERS IN CORE 
N TEMP 
i COUNT 
; THe SECTOR TRACK ADORESS FIELD 


SES RBesatnosaNoea aS 


s 


8882 
RRS 

= 
z 


: 
x 
He 
nh 


Le 
< 


a 


Pas bao ba b= bs ba hs a he se 
~~? 
nn 


Atal Att AtAt At At at A) 
WOVYTK.U£ who 


8 


iad 


Akaaee 


: 


OBE ERE nO MS OES 10 
IT 


GO TYPE CYL, TRK EXPECTED 
:60 Tyee REAQ 


a » RBUF s DUMP FMT2e2 
+3,LOCTRK  ;TRACK FROM HEADER 
RBUF , LOCCYL “CYLINDER FROM HEADER 


SPR SER OS GE NOO SONOS 


At At A 
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a2 
e 


A 


Sane | Bees. 


8 
Son 


a ;GO_ TYPE CYL-TRK READ 
ney 8-1, HEDERR SET THE CYLINDER ERROR INDICATOR 


H IF NOT 
ReLT * ER Lethe vesen come em 


;END OF FORMAT (OR CHECK) ROUTINE 
RR ;CYLINDER ERROR ? 


1 ;BR_IF NOT 
RS, TYPOUT see "REFORMAT MESSAGE’ 
;ME ADDRESS 


OTF CHECK" RODE. MODE ? 
6p PE i eS ORMAT COMPLETE’ 


88 
a4 


oe 


‘ADRS 
; s TYPE ofN.9 OF CHECK’ MESSAGE 
#SWO, SHR if SHR 0 SET 
RESTRT Bay! FoR next DRIVE 
#STACK, SP 1M STAC 
MS HE FORMAT. oust CHECK AGAIN 
sTHIS CODE SEQVICES A CLOCK INTERRUPT EVERY 16S 
MOV $16. ,.-(SP) :PUT MILLISECONDS ON THE STACK 
JSR RO, RPTMR :GO TIME 
RTI * RETURN AND CONT INUE 
;THIS IS THE EMT ERROR HANDLER-SELECTS ADRS OF ERROR HANDLER 
;SAVE THE REGISTERS 
DRIVE NUMBER 
sara BIT 


‘MOL ROL STATE tT 4) 
SVE KN 


‘at bn CALL INSTR 


EMTTBL-10002(RO); oF feLop EMT ADDRESS 
(RO) GO TO ERROR REPORT ROUTINE 


;SAVE REGS 1,3,4,8 5 Here AFTER DRIVER ERRORS 1->5 


: 


5370 
e372 
5373 
S374 
5375 
5376 


% 

S| 
Boo 8 
<52 


Banas 


= 
8 


e2eeosee 
Satire 


ee ee ed 
Oo 
2 


SEHSFORVRVS 
B 
° 


BESS  S8BRRBRRBEEE 
= 


e 
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S401 
S402 


; TABLE OF ERROR HANDLERS-DRIVER LEVEL 
: ERL ; ILLEGAL SUBSYSTEM INTERRUPT 
E “ILLEGAL DRIVE IN T 
: MASSBUS CONTROL BUS PARITY ERROR 
*CONTROL BUS PARITY ERROR 
ATTENTION FROM AN UNAVAILABLE DRIVE 
;HANDLES ILLEGAL SUBSYSTEM INTERRUPT 
#81713, 08SWR : SKIP TYPEOUT? 
RS, TYPOUT Fancy ILLEGAL SUBSYSTEM INTERRUPT 
asSuR HALT? 
2s preven IF NOT 
ILLEGAL SUBSYSTEM INTERRUPT 
PC, RESREG STORE 
RETURN TO DRIVER 
sHANDLES ILLEGAL DRIVE INTERRUPT 


177570 ERe: #81713, d#SUR ; SKIP is ly 


SeoRuee 


eb be hh 
0ONIMUI.£C WTO 


Pet p hE PE tt 


T~ 


BRANCH IF SO 
RS, TYPOUT ; TYPE ILLEGAL DRIVE INTERRUPT 


BRANCH IF NOT 
ILLEGAL DRIVE INTERRUPT 
; RESTORE 
;RETURN TO DRIVER 
;HANDLES MASSBUS CONTROL BUS PARITY ERRORS 
177570 =~ER3: BIT agttla, Soe 3 SKIP Mi a 
i. RS, TYPOUT : TYPE MASSBUS CONTROL BUS PARITY ERROR 
JSR PC, CRLF ;SET MARGIN 





2 
S 
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RS, TYPOUT 


ee 


Oo 
— 
3 
— 
Oo 


saeevEsEaRS 
es 


NOT 

*ERROR- MASSBUS CONTROL BUS PARITY ERROR 
jRESTORE RO-RS 
‘RETURN TO DRIVER 


: 


;HANDLES CONTROL BUS PARITY ERRORS 
177570 =ERY: #81713, d8SWR ;SKIP TYPEOQUT? 
BNE ren IF SO 
; TYPE CONTROL BUS PARITY ERROR 


, 


Bist 


arian 


™“ 
as 


: IF NOT 

sERROR- CONTROL BUS PARITY ERROR 

;RESTORE RO-RS 

RETURN TO DRIVER 

sHANDLES ATTENTION FROM AN UNAVAILABLE DRIVE 

8B81T13,a8SWR  §; SKIP TYPEOUT? 

RS, TYPOUT ;TYPE ATTENTION FROM AN UNAVAILABLE DRIVE 
RS, TYPOUT ; TYPE ORIVE 


AVR, R -GET DRIVE 8 
Be TORRUN i TPE Rive 


AGEs 


wo 
os 


177570 «ERS: 


geQuage 
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PC, CRLF »SET MARGIN 
Ma RS, TYPOUT i Fee RHAS 


R3 


Es & 


Pc, octy ° 
rc cet G . FOR TYPE 
c Ronets G0 Ty GISTERS 
sn +H 
PC,RESREG 


FAA ARRAAR 
WON UCU 


F _NO 
i H ATTENTION FROM AN UNAVAILABLE DRIVE 
REST Re TO DRIVER 


on 


;THIS CODE DECIDES WHAT TO DO WITH AN ERROR AT THE USER LEVEL 
sett, »FMTDPB+16 ;D10 THE aig TERMINATE 
‘C0 DETER TA ERROR 
WHI 


AA ad 


ER 
#70000, FMTDPB+16" 
es ; 


ER? 
SBIT11,FNTOPB+16' 


:G0 
Hert teted : sere FOR FATAL PARITY ERROR 
ERS I FATAL meses PARITY ERROR 
ERIO MUST BE SOFTWARE TIMEOUT 
sHANDLES THE DATA ERROR INDICATIONS 
012730 : 870, FMTOPB+16 SEE if A DATA ERROR 
BEQ 1$ 


RROR_ OTHER THAN DATA 
A READ HEADER 


= 


ERGA 
012714 $ CMPB #173, FMTDPB+e 


moan 


ON READ HEADER 
A WRITE HEADER 


eee 


012714 


003716 
003724 
003740 
003742 
003755 
003762 
003770 
00377e 
003776 
004002 
004010 
O04O1e 
004016 
004024 
004026 
004032 
004040 
DO4O4e 
OO4O46 
0040Se 
0040S4 
004060 
004065 
004070 


;BRANCH IF SO 
;G0 TYPE RETRIES UNSUCCESSFUL 


;GO0 TYPE SECTOR NOT ACCEPTABLE 
1? 


HAL 
;BRANCH IF NOT 
;ERROR- SECTOR FAILS TO FORMAT AFTER 1 OR 2 RETRIES 


aE 
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igs oooces 012576 6§: bre S, SAVSEC ie mst LAST SECTOR IN THE TRK? 


SCAWC '60 SET UP TBL FOR REMAINING SECTORS 
a ee A 
JMP (Bopts ithe Meer TRK 
sHANDLES A DATA ERROR ON A WRITE CHECK COMMAND 
sRECORD DATA ERROR 
+g OMT SECTOR + 1 
t BRaRICH IF Nor FRO 
TRESTORE TO LAST SECTOR +1 


2 
8 


= 


68 
3 


eee TOR TO THE ONE THAT FAILED 


ScIb_ {YPEQUT? 
BRANCH 0. 


I 
GO TYPE WRITE CHECK ERROR 


a ee ee ee ne 


REBIITORESES 


Benepegsgess 99 
auees 


S 


ofa tem 


00S237 
init 
as 
032737 
rate 
i 

004S37 
Nes 
its 
000773 
062703 
062700 
004737 
010300 
062700 


| 
3 


: OF rate 
sBACK IT OFF BY TWO 
iGET THe DATA WORD 
GO TYPE BAD DATA 
;GET BAD DATA AT RHDB 


:GO T IT 
;G0 Hee RHEC1= 


8 


;GO TYPE RHEC2 


qyoche > 16 TYPE Tr 


plat 
a8 


8= 
seheaes 
SauduasEseaBs 


qo 
~- 


3502 


PaaS g 
= 


a ae he 
WONICWUN CWO 





3 
5 
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wi 
bar pe 
bm es 


JSR PC ,RHREGS ;GO0 TYPE RH REGS 
;THIS CODE COMPUTES WC & CA FOR RETRIES ON WRITE CHECK ERRORS 


;GET STARTING ADRS OF BUFFER 
;GET SECTOR 


4 K 
sADVANCE TO NEXT SECTOR 
;KEEP COUNT 

:GO CK NEXT SECTOR 

. CA OF BAD SECTOR 


22 
q 


20 
sa 


= 


es 


2° 
sag 
zz 


: H 
s ADVANCE 


+ 
w 
o4<< 


I 


as 


F > 
19 NEXT SECTOR 


HME 
gees 


graprererrenerneecee & 


: 
SBSN6 


T SECTOR 
RO, SAVWC : REMAINING SECTORS 
#-260. ,FNTOPB+4 ;SET FOR BAD SECTOR 
SAVSEC, FMTDPB+10 T UP SECTOR ADRS IN TBL 
desu HALT? 
3$ ‘BRANCH I 
T *ERROR- DATA ERROR 
RTS PC GO REFORMAT FAILING SECTOR 
CHECK FOR READ OR WRITE UNSAFE ERROR 
820,FMTOPB+16  ;CHECK FOR AN UNSAFE 
BRANCH IF NOT AN UNSAFE 
8BIT13,aeSWR  ;SKIP TYPEOUT? 
“BRANCH IF SO 
:GO TYPE READ OR WRITE UNSAFE ERROR 


;GO TYPE DATA 
;G0 TYPE REFORMAT PACK 


T? 


H IF NOT 
;ERROR- READ OR WRITE UNSAFE OCCURED 
RESTRT ;G0 GET NEXT DRIVE 


INDICATE A DRIVE ERROR HAS OCCURED 
1ST TRY sIS THIS A RETRY? 
‘BRANCH IF SO 


Bi i 


# 
aes 
sg-22 
BR 
a8 
3 


e 
Ba 


1T13, d8SWR ; SKIP OUT? 
sBRANCH IF SO 
JSR RS, TYPOUT ;GO0 TYPE DRIVE ERROR 


PC, TYPALL GO TYPE DATA 
RETRY >RECORD ERROR 
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ere Souess tow, fe st iBRBNCH IF NOT 
000000 HAL ;ERROR- DRIVE ERROR 
Bee 37 : a3, RETRY eae RETRY 
37 012574 RETRY 

#81713, 24SiR 
RS, TYPOUT 'GO TYPE RETRIES UNSUCCESSFUL 
RS, TYPOUT ;GO TYPE REFORMAT PACK 
aaSWR ;HALT? 


6$ ;BRANCH IF 
; ERROR- ORV TERROR STILL THERE AFTER TWO RETRIES 
RESTRT ;GO ASK FOR DRIVE 


;HANDLES A DATA ERROR ON THE WRITE HEADER COMMAND 
BIT #81713, d8SWR ; SKIP Ma ey 
BNE 1$§ ;BRANCH IF SO 
Le RS, TYPOUT ;GO TYPE WRITE ERROR 
PC, TYPALL ;GO0 TYPE DATA 


JSR 
TST guShR HALT? 
BPL 


span IF NOT 
HALT OR- ERROR OCCURED ON WRITE COMMAND 
RTS PC TRY TO WRITE AGAIN 
;HANDLES A DATR ERROR ON THE READ HEADER COMMAND 


#81T13, dsSWR ; SKIP OUT? 
;BRANCH IF SO 
:GO TYPE HEADER COMPARE NOT MADE 


;GO TYPE DATA 

;HALT? 

sBRANCH IF NOT 

sERROR- HEADER COMPARE NOT MADE 
; RETURN 


Saeaee 


eee Se ek oe oa 
TUcWwMe-O 


;HANDLES THE DRIVE UNSAFE ERRORS 


881713, d8SUR ;SKIP_ TYPEOUT? 
1 ;BRANCH IF SO 
RS, TYPOUT GO TYPE DRIVE UNSAFE 


PC, TYPALL ;GO TYPE DAT 
RS; TYPOUT :GO TYPE FORMAT TERMINATED 


dsSWR ; HALT? 
+ NRANCH IF NOT 
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HALT ;ERROR- ORIVE UNSAFE ERROR 
001156 es: IMP RESTRT ;G0 GET NEXT DRIVE 


;HANDLES UNCORRECTABLE MASSBUS PARITY ERROR 


s81T13, daSeR ;SKIP TYPEQUT? 
;BRANCH IF 
, TYPOUT : 


1 & 


— 


GO TYPE UNCORRECTABLE MASSBUS PARITY ERROR 
RS, TYPOUT GO TYPE FORMAT TERMINATED 
PC, CYLTK GO GIVE THEM CYL, TRK=XXX, XX 
aaSuR fa 
25 ;BRANCH IF NOT 
ERROR- UNCORRECTASLE MASSBUS PARITY ERROR 
RESTRT G0 GET NEXT DRIVE 
;HANDLES FATAL MASSBUS PARITY ERROR 
BIT #81713, 20ShR ; SKIP TYPEOUT® 
RS, TYPOUT GO TYPE FATAL MASSBUS PARITY ERROR 
PC, CYLTK ;G0_GIVE THEM CYL, TRK=XXX, Xx 


‘FATAL MASSBUS PARITY ERROR 
RESTRT "RESTART PROGRAM 


— 


Ss 


8 


a ated 
on 
wedi G 


Pointe 


;HANDLES A SOFTWARE TIMEOUT (HUNG RPC4) 


881T13, d#SWR ;SKIP_TYPEOUT? 
1§ ;BR IF SO 
;G0_ TYPE — TIMEOUT’ 


:GO TYPE DATA 
»SYSTEM HUNG - OPERATION FAILED TO COMPLETE 


Paint 
REDE ER 


MOV (RS)+,R 
MOVB (R1)+, 
GO TYPE _IT 


Q 
FER PC, TTO ; 
BR ;GET NEXT CHARACTER 
RTS sEXIT = DONE TYPING 


;DOES THE ACTUAL TYPING - TYPES THE NUMBER OF NULL CHARS SPECIFIED IN “NULCNT’ 


5728 

: 
Q 
= 
$738 
rig 
S741 
srg 
S744 
sue 
$747 
5748 
5743 
5750 
$751 
e783 
$754 
5755 
5756 
$757 
$728 
5753 
5760 
$761 
$762 
S763 
5764 
5765 
5766 
5767 
S768 
5769 
5770 
$771 
5773 





z 
® 


te to bo to to to to toto bo 
ee a 
00 VOU .£ LITO 


ainsinoinitain hasta 


Re 


punmnenuansarsqsssqsos eras 3 


~DZRPL-8 


free Ps B= 


Tey 


oe: 


ass 


Se 


soe 


e 


Ss 


: 


1PF8es 
00618 


005166 


TT0: 
TTOl: 


TT02: 


TTI: 


18: 


CYRLR: 


NUMTST: 


TYPER: 


CRLF : 
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Nov. MALCNT R +See EP MULL C 

rete Me : ie peINteR avert ABLE? 

BPL TT0 :NO = KEEP LOOPING 

MOVB RO : lalalal 

CoP #15 15 IT A RETURN? 

BNE TTd0e : F NOT 

¢ KEEP TRACK OF NULL CHARS 

BNE 01 : 1F MORE NULL CHARS 

MOV (SP)+, RY RESTORE RY 

RTS pc ‘EXIT FROM PRINTING 

;READS THE KEYBOARD AND CHECKS FOR 'CONTROL C’ 

TST8—s«TK CHECK FOR CHAR 

BPL TT WAIT FOR CHAR 

MOV TKB, RO :PUT CHAR IN RC 

CMP sé, A215 DON'T PRINT AC 

ge g ‘SKIP OVER TYPE 

¢ , 8212 :DON’T PRINT A LF 

Bea 1$ ‘SKIP OVER TYPE 

are t200, RO EO te BI ie? 

CMP 83 TE RAR IN RDA CNTRL 
CTRLR :NO = SKIP OVER JUMP 
RESTRT YES - GO TO START OF PROGRAM 

RTS PC *RETURN TO MAIN PROGRAM 

TESTS THAT A INPUT CHARACTER WAS A NUMBER 

CMP RO, 860 1S ASCII THAN 60? 

BMI TYPER :YES - GO TO 

CMP 872 "1S ASCII LARGER THAN 71? 


RTS sRETURN - GOOD NUMBER 
ISR PC, QUES GO TYPE ?? 
RTS PC “RETURN TO MAIN PROGRAM 
;PRINTS OUT THE ORIVE SELECTED NUMBER 
MOV USEL , RO GET DRIVE SELECTED 
ADD 4260 RO ‘MAKE IT ASCII 
JSR PC, TO *GO PRINT IT 
MOV #240,R0 “PROVIDE SPACE 
5k PC Tto GO PRINT IT 
S PC ; RETURN 
THIS ROUTINE DOES A CARRIAGE RETURN AND LINE FEED 
JSR RS, TYPOUT sPRINT LF + CR 
MCRLF 
RTS PC ; RETURN 
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z 
a 


; THIS ROUTINE PRINTS °? ON IMPROPER KEYBOARD INPUTS 
JSR RS, TYPOUT ;G0 MES: 

MQUES iRDRS OF - 

RTS PC ;RETURN TO MAIN PROGRAM 

; THIS ROUTINE SETS UP THE TTY INPUT BUFFER AND COUNTER 
NOV sCPTR,R3 ;PUT CHAR PTR IN R3 

MOV Re, R4 ;PUT CHAR COUNT IN RY 
RTS PC ; RETURN 

; THIS ROUTINE CLEARS THE TTY INPUT BUFFER 


: JSR ;GO SET UP POINTER + COUNT 
bee ;MOVE O’S THRU R3 RY TIMES 


;KEEP 
$ spore 
ars PC :EX 
;THIS ROUTINE READS & CHECKS THE CYL & TRK INPUT FROM THE TTY 


T 

IT 

S$ 
;SET UP MAX # OF DIGITS EXPECTED 
;GO CLEAR DIGIT BUFFER 


; ar HAR 
31S IT THE DEFAULT CHAR? 


3 


Be 
<r 


IF _ RY EQ 0 
UP POINTER + COUNT AGAIN 


Sas Ge & 


8 
£ 
= 
= 

a 


z 


=" 


= 


ate 8 
Soa = 
BOMLRSR REN RIGABS 


Sass 


BINARY 

QUEST IS GREATER THAN 410 
LIMITS 
EDED 


OZRPLB. 
ee 
S844 
Se4S 
254? 
SB48 
S849 
$850 
$851 
S8Se 
58S3 
Ses4 
S8sS 
S8S6 
58S7 
ees 
5860 
S861 
S862 
S863 
5864 
S865 
S866 
5867 
5868 
5869 
5870 
587 , 
$873 
5874 
5677 
5878 
5879 
5880 
5881 
S8se 
5883 
5884 
S885 
S886 
5887 
S888 
$889 


OQ 


en ee 
. 
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8 


6S: SOF SW :15 THIS IF ENING beh ag OR ENDING CYL? 
BEG CYL 


Temp YL if Tee at BT TART ING CYL 
TEnP’ EYE ioe eo CYL 


7$: 
BR 
8S: J PC ,NUMTST 
vate th i COMING IN 


FePTER 3 picirs - TWE ?? 
NUMBER TOO BIG 


quaguamnneeueenees 3 
8 
ae 
BEL AASBBSSPAAG 
wp $6 


s 
au 
8 


ial 
oO 
~ 
WMFWwle-O 
—-a 
won 
“=z 


anos 
os 


~ 


PC 
io 
ie ha 

Hat Noe ; AD Two’ 


leita eet ede ed Lt Lee ta ak ey 


i=) 
—s 


ae 


_ 
io” 


a8 
48 


= 


;THIS ROUTINE SETS UP THE INPUT TABLE FOR THE DRIVER ROUTINE 


eT ae UP DRIVE 8 
GH GROER ADRS BITS 


AR H 

UP 
rN 

a NE TRK ADRS 


tf 
EG Motu Beate "POINTER TO ‘RH’ REGS 
+16 LEAR riba” STAT 


SENSES 
a 


al 


00S722 
00$730 
005732 
00$736 
005740 
00S74e 
00S746 
005750 
005756 
005764 
00770 
ee tee 
000207 
Ss 
006004 
006010 
006012 
006014 
006016 
006024 
006030 
006036 
ae 
006064 


oOoOr--O00 
posters 
NS 
S38 
foe) oe |e | oo | oe] 


ie 





4 
- 


wi 


OZRPLB. 
so 
BS 

? 
is 
i 
is 
S954 
S9S5 
5955 
5957 
Paes 
5960 
5961 
5962 
5963 
5964 
bare 
5968 
5969 
$970 
$971 
es 
S974 
$975 
5976 
$977 
5978 
$979 
$980 


PB 
| etl aed 


bP -p + ee 
fe Re 
o 


Slotatatotatstotst oot lm tosot 
THOMAES OMNES 


b+ = = be eh me hw he 


GEG SOUS ooe 


~DZRPL-B 


SUPPORT SUBROUTINES 


Sipe, QB SLRS 


: 


B 
= 


CECGke 


Re 
us 


ee 
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NOP 

MOV STRK, TRK NT. T UP PARTIAL CYL TRACK COUNT 
MOV IRKS, TT T UP TOTAL KS COUNTER 
RTS Bet URN FROM SETUP 


; THIS ROUTINE CONVERTS THE CYL OR TRK ADRS TO OCTAL 


: MOV ‘pet UP DIGIT 


agpnvaeEeys 


On zm —~—4 wewe 
Sahm 2 


3 


it 
# IN MEM TABLE 
PC ,UPDATK 8 IN MEM TABLE 
#2, (SP) ;ADO Two’ 
PC’ EXITS HERE IF NOT LAST TRACK 
T * TS uP CA FOR REMAINING SECTORS 
Te Greck sok 


BgBgAeeAR 


7 
4 +4 


2 87 a 


aos 
ae 


INING SECTORS 
MAINING SECTORS 
SECTOR IN TBL 


QO COMPLETE TRK FORMAT 


TORS Te ech Aeth Boe ZES a oan AND HEADER POINTER 





: 
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NT: x ; SET T T 
Som: AE UE en ono 


SEE FOR Ao aa TH THE STARTING CYL = TAK INFORHATION 

Ar iatie ct she 
TORT IN Te nee HN R3 

rae SSC] ROE 


pr Ren FORMAT BIT 
AREA OF CORE THE ort ADRS 
RORS 


ITE IN 8 
rival iN Mops AREA OF CORE THE TRK 
OR ADRS FOR, NEXT HEADER 
OF SECTORS 


IF NOT LAST SECTOR 
EXIT - HEADERS ARE L INTO CORE 


; THIS ROUTINE UPDATES THE CYLINDER ADRS OF THE HEADER WORDS IN CORE 
;SET UP SECTOR ott NEROER POINTER 


t RESE Tix Ales TOO 

say an 

gran iF oe LAST SECTOR 

;THIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WORDS IN CORE 


: JSR PC, SECCNT :SET WP SECTOR COUNT AND HEADER POINTER 
TST (RO)+ ;POIN POINTER TO TRK - SEC ADRS 

ADO 8400, (RO) *T 

ADD #520. ,RO :SET UP FOR NEXT HEADER 

DEC Rl : COUNT TORS 

BCE 1$ *BRANCH IF LAST SECTOR 

RT PC sEXIT 


;THIS ROUTINE CONVERTS FAILING CYL & TRK ADRS TO DECIMAL FOR TYPE 


SNCYLTK,R2 Bae POINTER FOR CYL & TRK TYPE 
LOCCYL, RO RORS 


R 
#144,R3 

8144) RO 
3 


Rl 
1§ 


nt 
2 


S34 


SRRABRSSERAESS 


annenas 


2; Gi Sees 
R 


MAINDE 

OZRPLB. 
6039 
BS 
604 
6044 
6045 
EDN? 
a 
6051 
es 
6054 
fe 
6057 
6058 
6059 
6060 
ea 
ss 
6065 
a 
6063 
6070 
6071 
607¢ 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
ee 
6086 


yee ee 





NEXT DIGIT 


YPE BAD CYL & TRK 
;THIS ROUTINE CONVERTS BINARY TO OCTAL FOR TYPE-R3 HAS # 


set ROUTINE STORES THE FAILING CYL & TRK ADRS IN MCYLTK 
ING-RETURN 


zie. 
ais 


aie: sip 


SEND TO TYPE REG 
; SAVE CARRY 

;CLERR OUT GARBAGE 
;MAKE A DIGIT 
;TYPE_IT 


’ 
J 
i] 
, 
] 
’ 
’ 


31S IT T? 
iBRANGH TF 80 
; DONE 


fe ROUTINE TYPES THE DRIVE® AND S/N 
;GO TYPE DRIVE= 


g 292 
Gee eee Fe 


Sotto tet Saeomstcy 


RSSSEe RASS SSTSEveneS! 


* 
z 
€ 
2 
rs 


PB 
] f, 2 
gongs oppose sey Sy 


scisiininiiniaiadia Bee 


RS, TYPOUT 


JSR 
MORV 


ay re ( pe g “ 
4 ¢ a § 3 g 


je ee s cf 
ceca) fea] Rebesssaneee: 
Se ee 


| BERREMAE REDS SSIBSBSS SS Sa ZN SLANT VERSA BASSR BAS 


hh kd a hd kd dd ad ad ad ad ad ad Od ad ad nd ad Od Od wd ad wd wd wd Od nd wd wt od 
Ivo IVs IV eV o JVs IVs IVelWelvelvelveDelveluslvelvelvslvelvelvelvelueluslucluslvelvelvsluclvctveluclustIvcIvsI¥sI¥s Ss Tester] 


“RPOY FORMATTTER PROGRAM”  MACY11 27(663) 


SUPPORT SUBROUTINES 


MAINDEC-11-DZRFL-B 


DZRPLB.P11 
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Pll SUBROUTINES 
6141 70 Ol 0126 MOV SAVREG+10,R3 ;GET 4 ERO RHCS2 
6142 aDeers gaa $35 JSR PC, :GO THEE Brive 
6143 O06 004537 166 JSR RS, TYPOUT ‘TYPE SN= 
6144 006704 012040 MSN 
614S 0057068 013703 012672 MOV SAVREG+30,R3 ;GET DRIVE SN 
614% O0671le 004737 007020 ISR PC,DECTYP GO TYPE IT 
6147 006716 004737 005376 JSR PC; CRLF “SET UP MARGIN 
b14g 006 000207 RTS PC ‘RETURN TO ER HANDLER 
b150 s THIS ROUTINE TYPES THE FAILING DRIVE # 
6152 724 042703 177770 TORNUM: BIC 8177770,R3 *CLEAR JUNK 
6153 730 010300 MOV R3,RO ‘PLACE DIGIT IN GUTPUT REG 
6154 006732 062700 000260 ADD RO j MAKE ASCIT 
6155 005736 004737 cOoSe204 JSR PC, Tto -GO TYPE IT 
B15 006742 00207 RTS PC RETURN 
b158 sTHIS ROUTINE TYPES THE CYL, TRK=XXX, XX 
6160 006744 113737 012723 012614 CYLTK: MOVB FMTDPB+11,LOCTRK ;TRACK ADDRESS 
6161 O067S2 013737 0120724 Ol2616 MOV FMTDPB+12,LOCCYL :CYLINDER RODRESS 
6162 006760 004537 ODSi66 CYLTRK: JSR RS, TYPOUT G0 TYPE CYL,T 
6163 006764 01204 MHCY 
6164 006766 004737 006774 JSR PC, TCYLTK GO CONVERT AND TYPE CYL+TRK 
B15 006772 900207 RTS PC “RETURN TO ER HANDLER 
bib? ;THIS ROUTINE ASSEMBLES & TYPES THE FAILING CYL & TRK ADRS 
6169 006774 004737 OO06444 TCYLTK: JSR PC, BINDEC GO CONVERT BIN TO DEC 
6170 007000 004537 005166 JSR RS; TYPOUT PE FAILING CYL, TRK 
6171 097004 010741 MCYLTK “ADRS OF MESSAGE WITH FAILING CYL-TRK 
b178 007006 000207 RTS PC > RETURN 
bi? ;THIS ROUTINE TYPES TWO SPACES 
6176 007010 004537 OODS1&6 TSPACE: JSR RS, TYPOUT GO TYPE TWO SPACES 
6177 007014 007564 ACE 
b178 007016 000207 RTS PC : RETURN 
6180 sTHIS ROUTINE TYPES OUT DECIMAL # IN R3 
6182 007020 012701 oO0004 DECTYP: MOV 84, Ri ;SET UP DIGIT COUNT 
6183 007024 006103 NXDO: ROL R3 >SET UP DIGIT 
6184 007026 006103 ROL 
6185 007030 006103 ROL R3 
6186 007032 006103 ROL R3 
6187 007034 006102 ROL R3 
6188 007036 010300 MOV R3,RO SET UP TYPE REG 
6189 007040 006003 ROR R3 ‘SAVE CARRY 
6190 OO7042 042700 177760 BIC 177760, RO -GET RID OF JUNK 
6191 007046 062700 000260 ADD #260, RO * MAKE SCI 
6192 0070S2 004737 005204 JSR ¢,Tto -GO TYPE IT 
6193 007056 1 DEC -SEE IF LAST DIGIT 
6194 007060 001361 BNE "BRANCH IF NOT 
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000207 RTS PC s RETURN 
;SETS UP RH REGS FOR THE ’RHREG’ ROUTINE 

: MOV RPERRS, SAVREG+12 
MOV RRS+2, SAVREG+14 
RRS+4 | SAVREG+HO 

+6, SAVREG+H2 


Corona 
Dt ee 
BBESRR 


013737 

13737 
13737 

013737 RPERRS+65 

017737 QSAVR+4. SAVREG 

013737 IRHCS2 

062737 ADD #10, IRHCS2 : 

7737 0126 SIRHCSe, SAVREG+10 GET RHCS2 


* RETURN 
sCONTAINS RHCS2 ADRS 
; THIS ROUTINE TYPES OUT THE CS1,CS2,0S1,ERI,ER2+ER3 REGISTERS 
GO TYPE THE RH HEADER 


of 


SERIES 
FERBRERES 
a 


SSSgesess  ssssesss 


33 


MRE GHD 


oo 
be bs 
rw 
-— 
P= 
GW 


pe be Ph be 
Lox) 
cs 


rs 
NFO ES 
288 
Sd 
aS 
to 


FGPG FGPG PG PoPoforore 
88 
aadds 
Buse 


el ee ee ee ee 
WONOUI£ WITH 


£ 
x 
3 


ene 
Se 


JSR 
MOV 
JSR 
JSR 
MOV 
JSR 
JSR 
MOV 
JSR 
JSR 
MOV 
JSR 
JSR 
JSR 
JSR 

V 
JSR 


3 
: 


SUN SSIS 
ieee 
es 


JSR T MARGIN 
RTS RETURN TO ER HANDLER 
; THIS ROUTINE RESTORES RO-RS WHEN RETURNING TO THE DRIVER 


oooceceoe 
Bagass3 


;THIS ROUTINE TYPES THE DRIVE 8, SERIAL NUMBER AND 
THE CONTENTS OF THE RH11-RPOY REGISTERS 


;GO TYPE DRIVE & AND SN 


SR PC, ORSN 
SR PC, CYLTK GO TYPE CYL, TRK=XXX, XX 
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pone 007150 JSR PC ,RHREGS ;GO TYPE RH RESS 
RTS PC ;EXIT 


;ROUTINE TO CHECK FOR KW1i-L OR KW11-P CLOCKS 


SCKCLK1, QSERRVEC ;SET UP VECTOR FOR P CLK 
geenRvette : NEW psu 


es 


[SOE 
a 
Gate 
oS e Eas & 


a 
RRR 


dq 
Be 
2% 


SEER 
: 


;CHECK FOR KW11- 
;SET UP A a VECTOR 
;PSW = PRI p 
3 LORD COUNTER ve 
;SET CLK - CNT 


;RESTORE THE STACK POINTER 
LOOK F CHANGE ERROR VECTOR 


FOR KW11 
;SET UP KW1J-L VECTOR 
SET KWL1-L INTERRUPT ENABLE 


#4, SP ;RESTORE THE STACK POINTER 
86, SUERRVEC RESTORE THE ERROR VECTOR 


ee 


ew 
Be 


(15)<12>/RPOY FORMATTER PROGRAM/<15>< 12> 


$s 


ose1e4 
pasos 
ike 


32 
1S 
15 
os 


/MAINDEC~11-DZRPL-B/< 15>< 12><12> 


R 
229 


-ASCIZ <15>¢12>/DRIVE # / 


os 
oe 
ba 


8 
8 


-ASCIZ = /=0/ 
tf # 


429/¢15><12> 
(15><12) 


/ DRIVE OFFLINE/<15><12> 


345 


/ DRIVE NOT PRESENT/<15>< 12> 





(15)<12>/0PERATION WILL BE IN 20 SECTOR (18 BIT) MODE- 


€15><12><12>/0PERATE IN 22 SECTOR MODE (Y OR N) ? / 
(15><12>/0PERATION WILL BE IN 22 SECTOR (16 BIT) MODE/ 


€15><12)><12>/PROGRAM MODE (C OR F) = / 


-ASCIZ / = FORMAT & VERIFY/ 


-ASCIZ /ORMAT & VERIFY/ 


-ASCIZ / SELECTED/ 


MNRPOY: .ASCIZ / DRIVE NOT AN RPO4/<15><12> 


MSIZE: .ASCIZ 


MSEC2e: .ASCIZ 
MSEC20: .ASCIZ 


MMODE: .ASCIZ 


* 
Z 
% 
S 
# 
z 
g 
2 


2 


a 
a 
= 
% 
N 
iB 


O47440 MHECK: .ASCIZ /HECK ONLY/ 


042514 MSELD: 


es 


: 
& 
“ sarang O8eas 
g Bee asease a 
Site — 


gue . a saat sasteat 
Bea g* y ets ie ian “alee asa — 
Ett TTT canes satis 


F 


000131 
O40S15 020124 MORMAT: 
O4eSeb 9044522 


JS1117 


SUPPORT 


aa eee ar pee ae ee ee ee ee ee ee ee 
000 28000000 280000000 2000000 


1 go 8h 8 Gea S| OR oS 


colt an 


NAINDE 
DZRPLB.P11 
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010236 042117 000105 

o1geay 12 MMINCT: .ASCIZ <15)<12><12>/STARTING CYL, TRK= / 
1 
biceeD 

010272 /=0,0/ 

(15)<12)/ENDING CYL, TRK= / 


Se 


72410, 187 


727 CYLINDER LIMIT EXCEEDED/<15>< 12> 


a8 
=y 


2B 
ney BES 
8 
yy 


777 TRACK LIMIT EXCEEDED/<15)< 12> 


5 


an 


= 


779 ENDING DSK ADRS MUST/<15S>< 12> 


is! 


/BE EQUAL TO OR GREATER THAN STARTING ADRS/<15><12> 


Re 
aa 
pace 


R 
— 
o 
eee 


2 


z &§ 
5 f 


€15)<12><12>/SELECT DATA PATTERN: 7<15><12> 


SRBR R 
Neve 

? 

2 


SR 


4(0) ZERO’S/<15)<1a> 


: 


eieenmind Reessemties G2ese GES GH 


7(1) ONE’S/<15>< 12> 
4(2) WORST CASE/<15><12><12> 


— 
ay 
<= 
be Ne 


O01 
Ol 
01 
01 
01 
01 
Ol 
01 
O01 
01 
01 
O01 
01 
Ol 
01 
O01 
01 
01 
01 
O01 
01 
01 
01 
01 
01 
01 
O01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


& 
Oo 
R 
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020124 
005015 


a 
o 


6427 
6428 7=WORST CASE/ 


S- 
=—N 


6429 


6430 €15><12><12>/STARTING FORMAT ON DRIVE #/ 


BRESR RR 
Rinkercis 
a 

we 


(15)<12><12>/STARTING CHECK ON DRIVE #/ 


Boe R 
ce 


BEZER 
<= 
é 


7000, 007<«15>«12> 


s2 Saas Sohoe an § 


€15><12><12>/FORMAT COMPLETE/<15><12> 


Ps 
8S? 88 
aBe Ee 


y Se 


€15)<12)<12>/CHECK COMPLETE/<15>< 12) 


wr 


(15><12><12>/ILLEGAL SUBSYSTEM INTERRUPT/<15)<12>< 12> 


es 


ee 


BQSReS Bae 
ae 
Rinks 


€15><12><12>7ILLEGAL DRIVE INTERRUPT/<15><12>< 12> 


SF 
PRP 
a 


¢15><12><12>/MASSBUS CONTROL BUS PARITY ERROR/<15><12>< 12> 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 


FEOERES RERSS 


€15)<12><12>/CONTROL BUS PARITY ERROR/<15><12>< 12> 





é 
3 
. 


MACY11 27(663) 


“RPOY FORMATTTER PROGRAM” 
SUPPORT SUSROUTINES 


~OZRPL-B 


(15>¢12)<12>/ATTENTION FROM AN UNAVAILABLE DRIVE/<15><12><12> 


(15>¢12><12)>/WRITE CHECK ERROR/<1S>< 12> 


¢15><12><12> DRIVE ERROR/<15>< t2> 


ASCIZ 
MER6: .ASCIZ 


MERSB: .ASCIZ 


kee) 


ar MERBA: .ASCIZ ¢15><12)<12>/READ OR WRITE UNSAFE ERROR/<1S><i2> 


— “ies 
az eeses Bas 


A ttt tet tnt 
sen Joa. fon Juan Joam fan oan fom Sion bom. boas ban] 
OA0M8M000O 2000 


@ ao —_ 
£3 ns a ae: 


(15><12>¢12)> WRITE ERROR/<15>< 12> 


-ASCIZ 


— hut 


rrr 


ey 


(15><12>«12>/DISK ERROR TRYING TO PERFORM HEADER COMPARE/<1S5>< 12> 


-ASCIZ /POSITIONING CHECK NOT PERFORMED/<15><12> 


-ASCIT 


MEREO: 


aig hin 


Fier dtl aats 


wr 
pean 


— 
mao — 
faattaat ote 

SYRRPC RSA NATH 


te een hemp heen ham hem hem heme heme heme ham here loath hem) 
en ban bat ban bet ban ben ben han pon }an ken ban ban 
QOMAMOOO0IO0A0O0000 


o 


+. 


Ww 


6460 


415>¢12><12>/DORIVE UNSAFE ERROR/<15><12> 


-ASCIZ 


MER7: 


Cw 
cj 


6461 911556 005015 


ys] 
~é 
ime 
“4-4 


3& 
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6462 


$463 MER8: .ASCIZ <15><12)<12>/UNCORRECTABLE MASSBUS PARITY ERROR/<15)< 12> 


oR 
~ 
£ 


(15><12><12>/FATAL MASSBUS PARITY ERROR/<15>< 12) 


z 


FEtee eee 


Bane 
at tt hs 


NN 
—- we 
eo £ 
£ 
-“ 
uw 


(15><15><12>/SOFTWARE TIMEOUT - SYSTEM HUNG/<15>< 12> 


2 
i! 


oaks 
2 RS? 


/DRIVE=/ 


Re 


/RHAS= / 


fas fa me be bm bp pew fs p= Bs bs pe B= P= b= & = b= = Os 


a aa desed 


ai 8 


/RO.ADR=/ 


Be 


/RO.WRO=/ 


88 
Bz 
al 


/WRT . AD=/ 


Ba 
ay 


/WRT .WO=/ 


Q 
0 
0 
0 
0 
4) 
| 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
G 


bon ee oe OH $f ae fee a Ob Fs pe fe pro b= be bs be pe fe Bee Bm pe pe Pe he 


Be BS 


/ SN=/ 
“CYL, TRK=/ 


/SECTOR=/ 


(15><¢12>/7BAD DATA=/ 


(15><¢12>/G005 DATA=/ 
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042040 036501 


6490 
6491 


6492 
6493 


6494 
6495 


042510 cs (15) <12>/RHEC1L=/ 


€15>< 12> /RHEC2=/ 


(15><12)7 RHCS1 RHCS2 RHOS1 RHER] RHER2 RHERG/<15><12> 


5 
QR 
eo 
Be 


rurururum fur 


SSSeme 
795 


z 


Oooo0oo0o000o0 20 
RR 


e 
a 


(15><12>/FORMAT TERMINATED/<15>< 12> 


i 


/ ~ SECTOR NOT ACCEPTABLE/<15>< 12> 


2280 
cf: 


1501 
1101 
000 


(15><12><12>/REFORMAT PACK/<15>< 12> 


age 


€15><12)¢12>/POSITIONING ERROR DURING FORMAT - REFORMAT PACK/ 


B 
re 
TU 

a 

ut 
—e 


a8 
a8 


—JIOe—ur wo 
od 
one 


PRR 
2 


aR 


ReRueeen F 


Buaesas 
ay 
5 


at 


(15)<12@>/RETRIES UNSUCCESSFUL / 


ro 
L=) 
-— 
mT 
if 


RERA 
u 
oO 


2 RZ RIK 
s et Be 


ZEXPECTED = / 


QO OOOO OOO0OONO000 2000 


ERE GRA ReaoeS 


/READ -/ 





MAINDEC-11-DZRPL-B_  “RPOY FORMATTTER PROGRAM"  MACYI1 27(663) 23-JAN-76 10:26 PAGE 43-32 
OZRPLB.P11 SUPPORT SUBROUTINES 


6510 
6511 8 MHOCMP: .ASCIZ «15)<12><12>/SOFTWARE HEADER COMPARE ERROR/<15>< 12> 


;LISTED BELOW ARE LOCATIONS CONTAINING 
PARAMETERS USED BY THE FORMAT OPERATION 


EVEN 


TING TRACK 
;TOTAL # OF TRACKS TO BE FORMATTED 
TOT & OF TRACKS COUNTER 
;COUNTS TRKS FROM O-18 PER CYL 
; CONTA PATTERN SELECTED 
PATT BE WRITTEN ON DISK 


RoRnasaaneReMuMEe res 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
Q 
0 


Do Re be hm Bee Be Bm Bee ae Bo ht Pe bee be fm be ft be pee be he 


a 
Oo 


SECTOR MODE 
MUM SECTOR ADORESS (FOR EITHER 20 OR 22 SECTOR 


OR TRACK CONVERSION FOR TYPEQUT 
TORAGE FOR CYL CONVERSION FOR TYPEOUT 
(FILLER) CHARACTER COUNT FOR TYPEOUTS 


THIS LOCATION CONTAINS CYL ADRS ON HEADER CK 
THIS LOCATION CONTAINS TRK-SEC ADRS ON HEADER CK 


;LEAVE SPACE FOR LEADING ZEROS 


O000 00 0200 OO 
pent ent ant Se on? ae nd) ee 
car bg ee 2 

fof oc Tr 
o000 00 O00 Oo 


; TTY INPUT BUFFER 
sMOVE POINTER TO ENO OF BUFFER 
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Oleb4e SAVRES: 
012644 
01e646 


Ol 


2 


000000 
000000 
Oogo00 
090000 
000000 


cee 


a 
epeeeeeeeee 


ONOOOOOO0000000 
eee ee 
OOOOGOOVOVOV0K0000000 


~ 
oO 


d 
8 


SRS 
mun £wrT 


QdooOOOOC0000 


O01 
Ol 
O01 
01 
01 
O01 
01 
01 
Cl 
01 
01 


ce 


6600 
6602 
6603 
6604 
6605 
6606 
6607 
6608 
6609 


RABIN 


FESTTT EET. 
WONOW CWO 


B 


-SBTTL RH11/RPOY DRIVER (REV. 0.9) 
;*COPYRIGHT (C) 1974 

;*#DIGITAL “he O17 CORP. 
;#MAYNARD, MA 01754 

;#AUTHOR: JIM LACEY 


LR ERR RR ER RES 
> + b= b= b—~ &—* b+ b= B= 
ee ee ee ee ee es ee ee ee 


;#STORAGE FOR RHDS1, RHER1, RHER2, AND RHER3 ON AN ERROR “2” OR “S” 





ALL ONLINE, OFFLINE, AND 
ENT Dave WILL BE ZERO. 


TA=8 BYTES) 
OR NONEXISTENT 


O-UMsT iNnor 


(ORVACT=8 BYTES) 


. IT WILL CONTAIN THE ADDRESS OF 


SSSSS555 


=8 


® 
z 
| 
. 
: 
é 


;#TABLE OF DRIVE TYPES (ORVT 
; #ORVTYP aL CONTAIN 
;#UNSAFE DRIVES. IF A DR 


“RPOY FORMATTTER PROGRAN™  MACYL1 27(663) 


RH11/RPOY DRIVER (REV. 0.9) 


SSSS8828 SBSBR888 
BRRRRe «© RERKRRES ©6©6— REAR 


nian ban ban pandaniantand pon an ban hon Ree benban bend 
OO0OO0000 QqAo0ANN0000 


1-OZRPL-B 


rf 
Pil 





SEQ OO4S 


HO4 
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RH11/RPOY DRIVER (REV. 0.9) 


MAINDEC-11-DZRPL-B 


DZRPLB.P11 


Be y 

sy & i 

a 2 . § 
+ & y g a. 
Bowe ce # 
~eaas S e « 
ZOHa ~uW wn nm & 
eage Ee oc as 
ae ez 
ge" ee OEE foe e&s 
~-2us ws 2 eww OnuMT NON 


OnmyuOrTrnwor = 
te |e as OFF www Ww Liz 


I 
I 
I 
I 
I 
I 
I 
I 
;#LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
I 
I 
I 
I 
I 
I 
I 
I 


ee ee oe ee ee 
eyews BSB use 588 2 TB 
-2 985 Fan fess a pans, 

ere Ss ye | (Sats . Fj Sute: 
seo" cee | Exe eee g ene 
Se) ae fee Gone . BOR. 
a. oS Hoo - & daddandas PRERRERY tha 

aS sects § Bee & a Sag2 CEEEEEEE go SEEEEEEE Gots 
=x 

€ho roe tere ee xe ¥ 
4 22 8 & & S &% $ 

2 * 2 82 §8 3 = ¢& : 


SSSS8888 s8888S88 


Saasacan 4 SeaeNnen 


oo a td et aa kan ban ban banben banhen! 
aqQ00g%g0000 Oo0AOMO000 


Bu 
tat 


013007 000 


g 
: 


LLL LO LO LL Ly GN i, ON, Gi i, LO Lm, i, Gy LN Gy GN, I, GN, I, i, GO, I, GN i, i, Gy GO, LA GL, I, GN, GO Gy LN LO LL 
SD Gh GG kd hd a kd ah a Hd Gd Gd Gh nd rd md Od nd ed wd ad mg ad ad gd nd ad nd ad nd nd ed ed ng Od ed ed wd wd wt ed 
ae See a ee Ne Ne Se Se Set Set St Set See Be See Bert Se Cee See Be Se Se See See See Net Set See See Set See See et Se Set See See Stee Set Set See See See See Se Set See Se et Set Set See 
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013030 000000 SAVEFG: .WORD 0 
; #SEEK us Serbs I 
> yee WHEN THE pix ADDRESS ISN’T IN THE WINDOW 
TRANSFER START A ri 
ite eRe Theci oe TRANSFER WILL DO IMPLIED SEEKS, 
:#DI GARD T 
SEEKFG: .WORD 0 


septemna™ TABLE (T 
#THIS T TIME ALLOWED FOR AN OPERATION 


TIMER: 


RRSESERS 


335 AAA 


on 


OoOO00000 
ZSz SESeVsss 


Da NOU 
3 


;#DATA T UW=1 WORD 
RANSFER UNDERWAY 
IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 


—s4 


(ATABIT=8 BYTES) 
GONTAINS THE CORRESPONDING BIT TO EACH DRIVES 


eo222009 
ta taut 
S5é35e"" 
NOU LCOIM-O 


;*#RPOY TO RH11 “MASS CONTROL PARITY ERRORS” (MCPE) ALLOWED BEFORE 
SCALING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


*STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPOY) 
{Rover (THE VECTOR ADORESS (254)), RPVEC+2 (THE BR LEVEL (5)). 
RPVEC: .WORD 254,5#32. 


-#MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
AXLACT: .WORD 4 


( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
{ 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
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;SET PROCESSOR STATUS TO RH11/RPOY LEVEL 


;SAVE PROCESSOR STATUS 
;CLEAR ALL REQUEST QUEUES 
;FIRST ADORESS TO BE CLEARED 
;LAST ADDRESS TO BE CLEARED 


GO SAVE R1-RS 
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PC,RPINIT 
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. WORD 
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“WORD 
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RPINIT: MOV 


MUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


ne TA: 
inDL ya: 


; MAXIMUM SEARCH FOR 170 WINDOW IS S SECTORS (MXWNOW=1 WORD) 


s#MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
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URRED (PARITY) 


" WITHOUT A 


THE PROCESSOR STATUS 


;MASSBUS INIT. 
A DRIVE 


NUMBER WILL BE IN RI 
GO INIT: 


TFIRST ADDRESS OF RHI1/RPO4 


SDRIVE NUMBER TO RI 

SUNTBUS ADDRESS OF RH11/RPOY (RHCS1) 
ROUT 
IVE 

'D0 A “READ-IN PRESET" 


;ERROR Le 
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apI TAG» Bash) ;SET FMT22=1 


RO, RO. RP ;READ RHDS1 


)+,RS ; AND IT_IN RS 


u H IF ATA=O 
ATABIT(R1),RHAS(RY) :CLEAR ATTENTION BIT 
RO, RD.RP sFIND OUT WHY ATA=1 


(SP)+ UNSAF 
ri i BB aheu te ves 

CHECK M “OL DPR, ORY, AND WV 
aeccerTi2serTostd T07!BITOS> RS 
S$ H I DPR, DRY, OR VV IS CLEAR 
#1,DRVSTA(R1) SET DRIVE STATUS TO ONLINE 


racet) ; DRIVE omen ee" OFFLINE 
(RO)+ iSTEP OVER b “ERROR RETURN 
RO, GETR1IS ;RESTORE Ri 
RO" RETURN 


OOO OO OOS KOOO9O0O00000 0000 


; ¥REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


Fein PARAMETER BLOCK 
IS IN QUEUE OR THERE 


NG STAT 
‘BONY T BELOW ANY RPO! AITERRUPTS 
SET “act VE DRIVE 
‘PICKUP T DRIVE PARAMETER BLOCK POINTER 
: CLEAR THE STATUS/ERROR INDICATOR 
PICKUP THE ORIVE NUMBER 
CHECK DRIVES STATUS 
“BRANCH IF ONLINE 
IN QUEUE? 


RPADR, RY ; UNIBUS RODRESS OF RHCS1 
RO, DRVINT :GO_INIT ruts OR 


TACRI) fe ORI Tan TUS ONLINE? 
1§ “BRANCH IF YES 
aBITASIBITIN, 16(RE) pERROR--DRIVE IS OFFLINE OR NONEXISTENT 
RO, DRVQUE ‘PUT THIS REQUEST IN QUEUE 
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11 RH11/RPOY DRIVER (REV. 0.9) 
(1) 013602 co0o421 BR S$ ;QUEUE IS F 
(1) 013604 l22762 000103 op0002 CMPB =s-«#103, 2(P2) i13 THIS REGS FOR AN UNLOAD? 
th) pig rea 77777 +=013010 ae #-1, ULDFLG(R1) N QUEUE” FLAG 
(1) Ol there 12742 2s: TST DRV VACTCRI) e cm at gRIVE A ACTIVE? 
(1) 013626 001006 BNE 
(1) 013630 004737 013672 ISR Pe, OPT PALL ny SOpTINIZER 
(1) 013634 000403 BR 4 
(1) 013636 OS2762 120000 000016 3$: BIS aBIT1S!B1T13, 16(R2) ;SET THE “UNLOAD IN QUEUE” ERROR FLAG 
(1) 013644 008760 4g: T (RO)4 
(1) 01364% 020256 cs: J RO, GETRIS RESTORE RI-RS 
(1) 013652 105037 013006 CLRB = ACTTDAV *CLEAR Fact of VER" FLAG 
(1) 013656 012637 177776 MOV (SP)+, JaPS RETURN “PS” R LEVEL 
(1) 013662 000200 RTS RO “RETURN TO CALL PER 
(1) 013664 004737 014674 6S: JSR PC,CI7 ‘GO HANDLE THE PARITY ERROR 
(1) 013670 000765 4§ 
() : #OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
(1) ?#CALL 
(1) 2 & MOV #ORVNUM, Ri ; DRIVE NUMBER TO Ri 
(1) *% JSR PC, OPT :SETUP A COMMAND 
(1) 013672 004037 020236 bpt: JSR RO, SAVRIS ;SAVE RI-RS 
(1) 013676 01374 177776 MOV aes, -(SP) “SAVE PROC. STATUS 
(1) 013702 146137 013056 013004 BICB afastT (Rl), SRCHMt “CLEAR “SEARCH WAIT" KEY 
(1) 013710 004737 020152 oR PC, GETREQ T "DPB" POINTER OF REQUEST 
:1) 013744 005702 TST il TTWERE @ REQUEST IN QUEUE? 
(1) O137 5 OO1444 BEQ “BRANCH TG xIT 
(1) O137-3 105761 012752 TSTB DRVSTACRI) ils DRIVE ON ONLI 
(1) 013724 003006 T 1§ 
(1) 013726 004737 020174 JSR be popque REQUES 
Ch) 013732 Ose7be 149000 O00016 BIS aBITIS!BITIY, al i BREE BIT OF “CTATUS/ ERROR INDICATOR 
(1) 5139 up eae 0001s oooone 1S: CMPB  =-«-&150, 2(R2) owen 19 bat FOR 1/0? 
(1) 013750 O02403 BLT 2s : YES- 
(1) 013752 004737 o14eS2 ISR PC, CI4 > CALL COMMAND INITIATOR 
(1) 013756 O00417 BR S$ “BRANCH TO EXIT 
(1) Ol 005737 013054 2S: TST OTUN DATA ER ? 
(1) Bta7e4 002012 BGE 4g *YES=--GO START A SEARCH 
(1) 013766 005737 013032 TST SEEKFG :DO IMPLIED SEEKS? 
(1) 013772 100404 BMI 35 : YES-- 
(1) 013774 004037 01S12e JSR RO,LA iN LOOK AHEAD 
(1) 014000 000406 BR S$ *RETURN HERE ON A PARITY ERROR 
(1) 014002 000403 BR 4g GO START A SEARCH 
(1) O14004 004737 014036 3S: JSR PC,CI1 :START A DATA TRANSFER 
(1) O14010 oo0402 BR S$ 
(1) luge 004737 014144 4S: ISR PC.CI3 i START A SEARCH 
(1) O14016 012637 177776 S$: MOV (SP)+ auPs STORE PROC. STATUS 
(1) O14022 004037 JSR RO, GETRIS iReey 
(1) 014026 000207 RTS PC 
(1) 014030 004737 017430 6S: JSR PC, SET. IE SET “IE” WITHOUT A “TRE” 
(1) 014034 000770 BR S$ ‘EXIT THE ROUTINE 


ER 
;REMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
WAIT QUEUE 


eA REQ. IN TRANSFER 
HE ADJUSTED SECTOR WITH 


1,CI3, OR CI4 
SEARCH REQUESTED BY DATA XFER 
;LOAD “COMMAND+GO”, "A178A16", AND “PSEL” 
;SET “DATA TRANSFER UNDERWAY” 
;PICKUP SECTOR ADDRESS 
;BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
ED TRACK 
RED TRACK & SECTOR 
;START A SEARCH 
;SET “SEARCH WAIT” KEY 


z 
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T.RP 


#131,-(SP) 
ATAEIT(R1) , SRCHM i 


RO, 


;#COMMAND INITIATOR 


a ee 
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t=? peta 
Ot 
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CHANGE THE UPPER 
;BYTE WHEN LOADING THE 
;REGISTER (RHOF) 
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STATUS TO OFFLINE 
THE “UNLOAD” COMMAND 


HE OFFSET REGISTER 


UNLOAD IN PROGRESS” FLAG 
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T 
H 
T 


;LOAD DESIRED CYLINDER 


;1S IT A “GET REGISTER” COMMAND? 
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C14S14 OCO006 7$: ; T SOS + OF WHERE 
; eats) 
014520 000010 014536 MOVB (Re ; , FOR Sion REG. 


000011 ; INDEX G. 
017036 gF: SR RO,RO. ;RE R 


MOV ;GET_THE CON we RH11/RPO4 REG. 
014536 MP ;LAST REG. N READ? 
;GET OUT IF ; 
; INCREASE THE INDEX BY 2 
A ete READ 
;1S IT Ae ow DRIVE” COMMAND? 
;LORD THE COMMAND 


Bg 


& 
2 


sREMOVE REQ. FROM QUELE 
:SET THE “DONE” SIT 
:SAVE THE RHI1/RPO4 REGISTERS? 


: H 
YES--GO SAVE THE REGISTERS 
*RETURN TO USER 


Ri 
31000. , TIMERCR1) ;SET A ONE SECOND TIMER 
BL,DRVACT(RI) SET THE DRIVE ACTIVE 


;RETURN TO THE USER 
;LOAD THE COMMAND 


PRBS SERER 
3 
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So 
x 
ba 


5S 


seats 


31S THE DRIVE ACTIVE? 
a SPaai TY ERROR INDICATOR 


;GO SAVE THE RH11/RPCY REGISTERS 
;D0 R “OPIVE CLEAR” 


ae 


e 
ge 


s EMPTY QUEUE 

re THE UNLOAD IN QUEUE FLAG 
;ORIVE IS IOLE 

;IF THIS DRIVE HAD AN I/O REQUEST 
;1N PROGRESS CLEAR ALL OF THE FLAGS 
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aoe 
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;SAVE RI-RS 
;PICKUP THE ADORESS OF THE FIRST REGISTER 
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;GET THE “TRANSFER WAIT” QUEUE 
5010 Mi ad Se HAVE AN 1/0 IN PROGRESS? 
:GET THE POIN 


TER 
RH11/ REGISTERS 
“NON-CLEARABLE PARITY” ERROR INDICATOR 


IMER 
iar “ORIVE ACTIVE" TO IDLE 
:CLEAR UNLOAD FLAG 
;MOVE TO THE NEXT DRIVE 


BRB 


88 
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Ne “TRANSFER WAIT” "Queue 
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RPADR, RY . RHCS1’S ADDRESS 
R1, RHCS2(R4) CT DRIVE 
RO; RO. RP CURRENT CYLINDER 

on RETURN ADDRESS 
(SP)+,12(R2) its CURRENT CYLINDER=DESIRED 
3$ tex 
LACNT(R1) tENCREMENT. THE LOCK AHEAD COUNT 
LACNT(R1), MXLACT’ -EXCEED MAX? 


10(R2),R3 CET DESIRED e SECTOR ADDRESS AND 
R3 ;MULT. BY 64--ALIGN WITH 
R3 ;LOOK AHEAD REGISTER 


R3 
$340, a8PS sPRIORITY LEVEL "7" 
RO,RO.RP *READ LOOK AHEAD REGISTER 


— Br 
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002600 ADD 8<22.#64.>,R3 ;MAKE THE DELTA POST TIVE 
013100 18: MXOLTA,R3 ;CHECK THE DELTA TO SEE 


3$ ‘IF IT IS WITHIN THE 
013102 MNOLTA, R3 id 
BGE 3$ 'THE LOOK AHEAD COUN 
013020 2s: R LACNT (RL) ‘AND TAKE THE 1/0 EXIT 
3: (RO)+ sADJUST THE RETURN ADDRESS 


RO 
4$: JSR PC,CI7 Ones THE ERROR 
RO ; TAKE ERROR RETURN 


OOK000000000 
Bb Po he 


SRaaee co 


;#INTERRUPT SERVICE ROUTINE 


ISR: ; SET “ACTIVE DRIVER” FLAG 
ae 
‘ADDRESS OF _RHSCS1 
GET “DATA TRANSFER UP . SRWAY™ INDICATOR 
; BRANCH IF_NO DATA TRANSFER UNDERWAY 
RANSFER DONE 


EXIT 

J 

;CALL SPECIAL CONDITIONS 
;RESTORE R1-RS 

sCLEAR “ACTIVE DRIVER” FLAG 
; RETURN 


1§: 
es: 


aaa 
Oma 


MOVB 
JSR 
MOV 
BLT 
JSR 
BR 
JSR 
JSR 
LRB 
RTI 


QONI0KB000000 
ed eee ee eee 


;#TRANSFER DONE ROUTINE 


TD: CL.RB  DRVACT(RI) ;SET DRIVE ACTIVE INDICATOR TO IDLE 
&-1,0TUW ;NO DATA TRANSFERS UNDERWAY 


1 
Sok, TERERCRL) ;CANCEL TIMEOUT 


ROM THE 
R MALT © QUEUE --CLEAR QUEUE 


lec ORIVE 
Fiber ERROR ( TRE=1)? 


SG373' 


sscceeanaies |B 
sf 
PORK SaS 
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YES 
RH11/RPO4Y REGISTERS? 
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=-SAVE THE REGISTERS 
OPTIMIZER 

IAL CONDITION Hae #2) 
She DATA 


gret THE “DR QUEUE 
VE THE RH RHYL RBOY SEG Ane CISTERS 


Me A “ORIVE CLEAR™ 
;SPECIAL CONDITION (ENTRY #2) 
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;#SPECIAL CONDITION ROUTINE 





R_ DONE” 
ATUS 


STACK 


Ts THIS ORIVE SETUP FOR 1/0" 


:NO-== 


ANY ATA BITS = 1 


S READ 


ONTROL AND STATUS REGISTER 
DRIVE S 


TENT? 
H 
F MORE READS ALLOWED 


“BRAN 


esr TO THE NEXT DRIVE 


IVES? 
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I 


S---CLEAN OFF THE STACK (RHAS) 


~-RE 
“ATR” 


;PROCESS ALL DRIVES THAT HAVE 


;START WITH DRIVE 0 

;READ RHAS UP TO THREE TIMES 
;MOVE TO THE NEXT DRIVE 
;BRANCH IF MORE TO CHECK? 


' YES--BRANCH 


; BRANCH 
; UNLOAD 


YES 
TCHECK T 


wo 
A 
om 
> 
a 
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_ 
wo 
= 
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cu 


z 
ee fe & i 2 gee 8 ee 


SnagEhe— oy Oselee ten mpE: 


#1,R2 

DRYSTA(RI1) 
DRVSTA(RL) 
ULDFLG(R1) 


Seu 


seeder Eran we lune 
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RHL1/RPOY DRIVER (REV. 
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ORE THE ERROR CALL 


MORE ATA’S 


ie THE TIMER 


; INFORM USER OF ERROR 
;READ DRIVE STATUS REG. #1 


38 


IVE ACTIVE INDICATOR 
“ CONDITION =1? 
IF YES 
/RPOY REGISTERS 


HE_OPB POINTER FROM THE QUEUE 


Cr EAR ATTENTION 


; SELEC 


new 
RPO4’S STATUS REG. 
IF NO--UNSAFE CLEARED 


VE_IS UNSAFE 


ore gs! IN RS 


oa 
sc eeFeiein ee 


BRI 


iS, 16(R2) 


GOS 
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; O40000 012732 


oe numa 


-gpnne Asa NaNASS- cere et ere rere rCecr er eee 


oes teeter ee ee ee ee 
QOOOMNWOOOOONWHOOHOHOQWAHOOOGOWOOOOMWMOO0OOO0000000 





STACK 


; INFORM USER OF ERROR 
ST FROM QUEUE 


” BIT 


NG A SEARCH OPERATION FOR 


OR MORE ATA’S 
a" “eaten 
OAD FLAG 

DLE 


ERROR 


'AN 170 COMMAND? 


RH11/RPOY REGISTERS? 


IF NO 
;SAVE THE FOUR REGISTERS THAT 


IN PROGRESS OR QUEUE? 
veer FROM THE STACK 
;WILL TELL US SOMETHING 


) 
ae 
IF NO 
RS 
" 
F 
RE 
PC OFF OF T 


( 


S--SAVE ALL OF THE RH11/RPO4 REG’S 


ART A REQUEST 


URN 


6 


I 
I 


HINT. THE STATE OF THE DRIVE 
; TAKE ERROR EXI 


POP 
{PROCESS THE PARITY ERROR 


EE 


Fr, 
ser 
& 


2 
° 


-,» IMER(R1) ;START 30 SECOND TIMER 


*BITO7!BI 


TACR1) 
(Rl) 


Tisterro7!erTa3 


bRvS 
ect 
E 


#-1, DRVACT(R1) 


——. 


BaeDoS Soe Seapets Se ahs 


pupa anak Fp pgp a th 


sl, 
Ri 
u, 
F 


3$ 


BIS 
CLRB 
JSR 


177777 Ole74e 


d ss baieeaaes 


oe ee 
arama 05h NRT ObIRI ORR) spetaatassee= ages 


LIGIGIOBIBSB IBS S SDL BIISIB SS SB BBBBBD NR I dd dh tt ad tt tt tt 
BQQOOOWOOBOGHWOWOHWHOHVWWOOHGKOHGBH08KHAH000000 2OHOOOKRON009000000 
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-11-D0ZRPL-8 
Pll 


MAINDEC 


DZRPLB. 





CONDS ON THE STACK 


OAD FLAG 


“PS” TO RPOY BR LEVEL 
OLE 
UNL 
ORIVE O 


R1-RS 
SS OF “RHCS1" 


CT THE DRIVE 
“DRIVE STATUS REG” 


I 
H 


: 11/RPO4Y REGISTERS 
;"INIT" THE MASS BUS 


‘ 


S 
HE 
IT 


THE PROCESSOR STATUS 


TW 


t7ERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 


;RDJUST THE STACK 


; RETURN 


;CALL SOFTWARE TIMEOUT ROUTINE 


T WITH DRIVE 0 
31S THE TIMER RUNNING? 


1G(SP), TINER(RS) 
‘MOVE TO NEXT DRIVE 


;GO0 TO THE EXIT 
;OUT OF DRIVES? 


eT 


sb 


o 
fl 
bbe J 
r 
Z 
a 
i=) 
Com 
wo 
° 
& 
ws 
bie J 
cu 


) 
) 


Ro, STO 


noecae 


ULDFLG(RI 


CLRB 


;*SOFTWARE TIMEOUT ROUTINE 


;% 


;#RPOY TIMER ROUTINE 


$ 


;*#CALL: STO 


¢ 


iif 
eum _—— 
iB 


: 
peszecnudaaounas ouuuaaunoua setae ss 


td td St a B38 53:32 8 
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16444 112737 000001 013007 
166663 000016 013034 


16436 005737 013006 
16442 001032 
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FROM QUEUE 
INIT, 


RETURN 
E BEFORE THE INIT.? 
RANSFER WAIT QUEUE 
RE 1/0 ON THIS DRIVE? 
POINT 
USER 
AR TRANSFER WAIT QUEUE 
AR ALL REQUEST QUEUES 


iTS ATTENTION FOR THIS 


TORE PROCESSOR STATUS 


URN 


RROR ADORESS--PROCESS ERROR STARTING 


T THIS ADORESS 


HELE 
EXIT 


-BR IF “ROY"=0 

;ADJUST_FOR THE PROPER RETURN 
Paes 1-RS 

'GO HANDLE THE PARITY ERROR 
ICONTENTS OF REG. IS ON THE STACK 


i: 


@3-JAN-76 10:26 PAGE 43-S0 


on 
onS - 
seeeese 


qwnaw 


g 
: 
3 
& 
: 


2 
r 
rd 
: 
& 
: 
z 


737 013066 017162 RO.RP: MOV 


B46 


+: es 3: 


ie abil SUSE tanspe earn 
Sasa grsr Retro anercaasas Nes 


DBDODOODOOWDOVWWWWOwWW 
Sandan panpan bandon dan pon hen }enhan bandon fendan penton pan hon }undon hon bon den bon hon ban bas taniee ben danhantan hon bes ben) 


QOOOOOWOOOOWWOHIOOWWOWHOOBOHOOAB009000000000 


3 
1 
3737 013070 017062 
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" 


8 


FOR DATA TRANSFERS? 
gt AIBSAL? 
St NectT 


THE 
638A 
ORE 


S OF THE DISK REG. 


THE_HIGH BYTE OF RHCS1 


SS_ STORAGE 


TEXCEEDED MAX. RETRYS 


;BRANCH IF NO 


1 FOR RETURN 
IF NO 


1 


;RETURN IT TO THE USER 


;READ RHCS1 
;0ID MCPE SET? 
; TAKE THE ERROR EXIT 


;FATAL ERROR EXIT 


; AD 
;RE 


2 
« 
2 
= 


- 


a. 
z “82g * 
nnteetests oh 2 sktio 


1+, (RO)+ 
a 
SRT. WO+1 


(SP) 

atC7, (SP) 
4 

(RO) 


( 


Srananatheetatunee spaetunt 3e8 ovens 


;#ROUTINE TO WRITE A RH11/RPO4 REGISTER 


WRT .WD: 


o. 
nm 
= 


013070 017156 
017156 


000002 017262 WRT.RP: 


000150 017262 


Sof sag 


ST 


pA ee Ae eS San ReZeacee 
[om paar ae per ee ee ee ee ee ee an ae tae ee ee ee pe pe ee ae ar ae pe ca cu cued 
hh hh Oh ed ed ed ht tt OF nd ad nd wd ds 8 wd od wh 
OOOOOOWOOONNOON000O0O000000000 OOOOHOOMO0O00000000 


040000 
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7 


LOLOL LL Ly Ey Ly i, Lm, Gy LO, Gm, in, Gin, Gm, I, fel, I, Gi, Gin, i, Gn, i, GN, Gin, Gm, Gm, GN i, i, Gm Gm, LN, Gi, GN, Gi, EL, LG I, I LN GL 
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017036 WRT.AD: gO Bo, RO.RP OPRCK POR PARITY ERROR ON URITE 


es 
000010 Bi IT03, (SP)+ 
177776 ~=017316 
017036 


oz 
az 
t=} 
oe? 


;BRANCH IF “PAR=0" 
; PICKUP pre [MOEN 


mw 
3&3 
-_ 
— 
ws 


2 


18: G. INDEX 
{RETURN t THIS ADDRESS ON ERROR 


jREPOR HE 
;CLEAN OFF THE STACK 
es: TAKE THE “PARITY ON WRITE” ERROR EXIT 


38: ;ADJUST FOR ERROR FREE EXIT 


OOO OOO OOO OCOOO0O00ND 
oo oR 


s*ROUTINE TO SAVE THE RH11/RPOY REGISTERS AS PER DPB+14 
* #CALL 

i MO #DPBNUM, R2 :DPB POINTER TO R2 

ti :SAVE THE DRIVES REG’S 
SVRHLL: JS SAVE REG.'S RI-RS 


3 SEL EE 
pel “ite "ERROR TABLE POINTER 


SEQUNTER & POINTER 
; PROBLEM REGISTER 
RHDB? 


Rieke . 
a IF Wy = READ 


eae 


= 


ie 


if ae 00 ADDRESS THAT IS 


MOV SAND READ IT 
3: ;MOVE TO NEXT REG INDEX 
CMP iDONE® 


Hees 
ns 


ae 


OOOO OOOOOOOOOOO000000 
é 


a Be be bs pee Pee be Pee fe be dee et bo Om be be fe hm hem 


PPPPZ 
FNS 


4$: a3 REG ISTERS R1-RS 


; ae TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 


V #ORVNUM, RI i DRIVE NUMBER TO RI 
JSR PC, SET. fe *SET "IE" 


RY, -(SP) + BrCkUr 
RY CKUP ADDRESS OF RHCS! 
$2(R4) iSELECT ORIVE 


LOLOL LP OPO LOO LP OP LD LLL Ly yh Lm Nm, Py I fm, Pm im, em, in, im, Gin, iy Hin, fn, I, Gn, GN, iil, in, iin, 
me be be be ee ee be et ee pe 2 ee be be Be pe Re be bm be be ee pe be 0 Ll) em he Be am te best fos fee 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


ooo 
— 





1 START ADDRESS 


OnmuUMmTiNnNwot O-woOrTnwr. 
SeuuWW — weMeNNeL Wesaeane 
ratatatatatat=tm SS55S5S335 SSnnnnmn 


3 ERO RHCS1 
;SET THE “TRE™ BIT OF THE WORD READ 


;ADJUST FOR DATO 


i2--0 
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SCLEAN OFF THE STACK 


SESES5ES SESEESEE: 
a Ge 


3 et 
28 q 
ssarsumeasy GGUGUEGE | GROMGERE | GGASEGEE GGOREEERS 


3 
z 
= 
fs 
Oo 
= 
a 
4 


- 
: 
ra} 
: 
& 


ee Se ON a te 
pww | oe [oe foe | ne | ow | oe | oe ] 20000000 2800000000 


Zieeeeereee ReRRRRER Reet 86 eeeerere PePeeRere 


eo a a a ne tt tt tt te Seaban dan bondanbendan ben! ht tt tt tt et tt 
CONO0O0000000 G000N0000 QON000000 O0O000000 2800000000 
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THE QUEUE pro 
INPUT POINT 


;CLEAR NUMBER OF ITEMS IN QUEUE 
NPT(RL),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 


;MOVE THE STARTING ADDRESS 


;RESTORE R1-RS 
;ORIVE NUMBER TO R1 


23-JAN-76 10:26 PAGE 43-S4 


| id 
+++ +aae 


zanna en em 


Sele Ganeasa 


MOV 
CLR 
CLR 
CLR 
CLR 
MOV 
MOV 


w 
=} 
a 
a 
4 
= 
ra) 
“a 
@ 
g 
ra} 
e 
2 
3 
=. 


;ORIVE REQUEST QUEUES 

;#EMPTY THE QUEUE SPECIFIED BY RI 
Q 
R 


CLRQUE: JSR 


1$: 
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ee ee a oe 


sasnssse5 


LAR =A 


Ssascssak 


~DZRPL-8 
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RETURN HERE IF QUEUE IS FUL 
;RETURN HERE IF REQUEST 1S Th QUEUE 


) 

ial) 
rk 
foot 


810, QCNT(RI1) 
Ha ‘Be 5 HUE the RETURN 
QCNT(RL) INCREMENT QUEUE COUNT 


RB. SOINPT (RL) PUT THIS REQUEST IN QUEUE 
set E IHE QUE UE POINTER 

Q APTCRID. Reo roptnee tine 0. NESE, THE POINTER 
SS rantiRL), oINPTIRID : ;: YES--RESET POINTER 


1§: 
T RO) + ; TAKE ere S. 
es: RO *RETURN TO 


;#ROUTINE TO GET THE “DPS™ ADDRESS OF NEXT REQUEST IN QUEUE 


Ree 


=8 
a = 
oes 


Se oeaeeneee 


pes erinteit 
z 
o 


#ORVNUM, RI :DRIVE NUMBER TO Ri 
PC, GETREQ T THE RE QUES! 
ie rt ADDRESS OF THE REQUEST 
‘ResO IF NO REQUEST IN GUELE 


LOR LOR LOR LO OS PO LO LR LO FL LF PPR FF Pe 


RE 
QCNT(RI) ;1S THERE ANY REQUEST IN QUEUE? 
;NO---BRANCH 


1 
HOV SQOUTPT (RL), Re :PICKUP “DPB™ POINTER FOR THIS ORIVE 
RTS PC RETURN TO USER 

s#ROUTINE TO "POP" THE REQUEST FROM QUEUE 

;#C 

Sts BORVNUM, R1 sORIVE RTOR 

PC, POPQUE CALL TO REMOVE REQUEST 

*RE=ADDRESS OF DPB REMOVED 
QCNT(RL) ;DECREMENT QUEUE COUNT 
soo. TPT(RL ie ;GET THE "DPB" POIN TER 
te QOUTET ‘UPDATE THE POINT 

09 QOtTP (RL) *aeroetki) . TIME 70 RES I ro the. POINTER? 

GSTART(RL), “QOuTPT(RI) YESS ~RESET THE POINTER 

PC ;RETURN TO USER 

; SROUTINES TO SAVE RO-RS AND R1-RS 


T¥CALL: SAVROS 
i TSR RO, SAVROS 
RETURN 


1$: 


i et et i Ai ete ee ee bead 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 


LR LLL RR RO FR OR ER FRR ER ERAN FREER RORY 


;RO-RS IS ON THE STACK 


_ 





MAINDEC-11 
DERPLB. PLL 


PRR FR FR ES FRESE FR FRE FR ON LO LE OS RF FO LO FF FR FR ES 
b= = bb b= B-- b—= b= b= 8 + bb Bb ~~ + = bP P= +  8- + DP Pb = 2 + BP P= — = 0 -— &- = = PH 


w& i ee ee ee eee 


ERE 


ap 
Ry 


020300 
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SeEGe8 


i= 
Re 


BREE 


600012 


000014 


;# 
s#CALL: SAVRIS 
% JSR RO, SAVR1S 


ii RETURN *RI-RS IS ON THE STACK 
; SUPON RETURN FROM SAVROS AND SAVRIS THE STACK WILL LOOK LIKE: 
“gg 
oi 4 Re 
#404 R3 
#402 RY 
s#TOP = =6RS 
VROS : :SAVE RO BY THE JSR INST. 
SAVRIS: MOV R1,-(SP) SAVE RI 
MOY Re -t a) sSAVE Re 
MOV R3,-(5P) SAVE R3 
MOV RY’ ~(SP) :SAVE RY 
MOV RS; -(SP) SAVE RS 
MOV ietSP),-(SP) GET RO 
RTS RO 


;#ROUTINES TO RESTORE RO-RS ANC R1-RS 


: RO, GETROS 
*# RETURN ;RO-RS HAVE BEEN RESTORED 
*#CALL: GETRIS 
: JSR RO, GETRIS 
*# RETURN sRI-RS HAVE BEEN RESTORED 
BETRIS: MOV (SP), 14(SP) sPOSITION RO 
GETROS: TST (SP)4 ;POP RO OF THE JSR OFF OF THE STACK 
MOV (3B) +, RS RESTORE RS 
MOV (SP)+)R4 RESTORE RY 
MOV (SP)+/R3 *RESTORE R3 
MOV (SP)+'Re sRESI Ra 
MOV (SP)+/RI iRE TORE RI 
RTS RO ;REST RO 


;THIS BUFFER CONTAINS HEADER/DATA INFORMATION WRITTEN ON CURRENT TRK 
BUFP: 0 ;START OF BUFFER FOR FORMAT (26260 BYTES DEEP) 


. ENO 


SEG 0066 


ate 


Cc 


Be RB 
ag 8 


D 
+ 
& 
“+ 


mA 
> 
~ 
zee 


R 
: 


deReense 


44H Ht HH Ht 1 4 
fw wun Be 
wmf GWrUe~-O 
Oh 08 08 00 00 68 OO 08 08 08 Oe Of ot ae Oe oe 


otc 


rr) 
oe ae 00 Ob Ob Ob Oe te Oe ne 


FeSiicrer tes BEBE 


0-0-4 4 4 Oa 4 4 4 Od P44 4 4 4 84 Fo 4 4 4 4 0 0 


as 


ONY YN UIE wre 
a> 


8 4 84 4 0 8 


oO Sy bed bed Red Ke fob ed. 
~ 
oO 
cg 


CSaas 
RSE 


ond ~~ 


CROSS REFERENCE TABLE 


bbe . a 


ag 


ec alas 


a 


Sah eee 


Bb = bb te 


8 ReSeSesSs eee 
w ~~ 5 £ 
Donhae aos 
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S426 eie0 5473 © SS01 §SS4 S579 S652 S668 S682 S695 
$747, $759 ~—Ss 6 B20 


S624 5937 6034 66248 


62738 
S2Si8 5260 5270 
6268 
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CLRBUF 
CL 


3 


o 
y 


e222 
Be 


sae 8 


E 


20 
ae 


a 


Site 


BE 
x 


crreeeeeeneice 


R 


004Sbe 


004742 
004776 


O0SO4e 
005106 
TRK 12552 
FMTOPB (OQle7le 


per rey 


CROSS REFERENCE TABLE 


MACY11 27(663) 


S464 


61608 
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$477 


6251 


5482 


5487 


5492 


5509 





$8338 


6147 
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GETDAT OOS446 SieS 865130 $8608 
GETREQ O201Se 66208 
eine Oe02be 66208 
TRIS Oc02S6 Sesge 
GNS = ##eERE U 4 
GOOD O02446 S257 3s Sebes 
GSEL 001250 4991 50038 
HORCK Sle =—s_-« $31S8 
HDRCK1 002660 5314 $3168 
HDREAD COcb16 53078 $323 
HEDERR 012606 Sesv# = S342# 5351 65518 
IOTVEC= 000020 WHee 
IRHCSe 007146 6e04# 620S# 6205 62088 
ISR 015260 66208 
LA 01Sie2 66208 
LACNT 013020 6208 
LOCCYL Ol2e616 S340e 6080 6161% 6564s 
LOCTRK 012614 5339# 6098 6160% 65638 
LOOPTS 002516 Se63 = «Seb? 0s Se74e = S568 
MADRER 010423 S140 $147 3§=66 4208 
MAS 011771 5436 1} 64718 
MAXSEC Qleble Soss# 5107# S266 6033 65558 
MBDATA 012067 5609 «= 64878 
MBOFMT Ol2332 5359 65038 
MCCMPT 010777 S367 _s64388 
NCLINT 010334 5988s GH 168 
MCPEMX 013066 66208 
NCRLF 007574 5834 76 
MCYLTK 010741 6079 = «6171 64348 
MCYTKO 010272 5870 «= 64108 
MCYTK1 010324 S875 GY 
MORNP 007621 5020 63808 
MORV 011762 5431 S506 6140 64698 
MORVD 007561 4990 63718 
MERI 011023 S417 BY4NOS 
MERIO 01171 64678 
MERe 8 Oli S¥e9 ss Yes 
MERS 011123 SY63 B48 
MERY 011172 S476 Ss BNE 8 
MERS 011231 SSOY = BYH4BB 
MER6 011303 64508 
MERBA 386011332 b4Ses 
MERSB 011372 5671 83864548 
MEREC 011413 98 8664568 
MER6ED 011434 5710 64588 
MER? 011556 S7ee = BY 8 
MERS 011606 $736 86=s-_ b Y468 
MERS §=©6011656 S750 = BYES 8 
MEXPED QO1e444 5334 6 
MCMPT 010752 S364 4368 
ORMT 007761 5075 eat 
MFTERM Oleeeb $725 7 64978 
MGDATA 012:04 3 6489s 
MHCYTK 012046 6163 64838 
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paogt 
6094 


MP 


uy 


eaee = 
Ree 


6104 bllls 


ERY: 


5183 S237 S259 5269 S361 65348 


~—-— 
8 
4 
o 


a 


bes be pe 
ru £8 _ 
jo FIG) oO 


Oo0d000OooO 
a 


SeRES 


oOo000o 
Sta 
-“— 
8 


8 eee ar 
ie Set aetna 


rec 
MMAXCT 
MMINCT 
MMODE 
MNOLTA 
NNRPOS 
MODE 
MOFFLN 
MORMAT 
et 
MROWRD 
MREAD 
NREFMT 
MRE GHD 
MREUNS 
Cl 
Ce 
MSCHK 
MSD 
MSEC2O 
MSECee 
MSF OU 
MSIZE 
MSN 
NSPACE 
MSTOR 
MTITLE 
MTLIMT 
MUNCOR 
MUNIT 
MUSOR 
MuC 
MURTAD 
MURTWD 
MXDLTA 
MXLACT 
MXWNDM 
MO 
Mi 
M1A 
Me 
M3 
ual 
MS 
NULCNT 
NUMTST 
NXD 
NXDO 
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52778 


5458 S486 («S491 = SS13)ss«S607 ~=—ss Sl 
b2e1 be 


PATA 


iE 


233 
unwnwne 38 
Z 


aSeaiioes 


C= 


eae 


PRe 
PR3 
PRY 
PRS 
PR? 
PS 
PSEL 
PS 
PURVE 
QCNT 
QORVO 
QORV1 
QORVe 


agai 
etatatetetetetatotetetototos 
sag 


Jae 


B 
g 


5062 «(5092s«S17S~=Sss«sS$819)0=Ss«s $8398 §=65899 0S: $927 
PeaR 5336 $339 S340 65678 


o0o 
sae 
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RO.RP1 017060 65208 
-RPe O171be b6208# 
-RP3 017166 66208 
.WRD 017064 S462 490 66208 
RESREG 007270 S4el ass Sugg S496 5520 62368 
RESTRT 001156 4940 4974% 49778 5370 S662 5691 5729 5743 5753 S765 5807 
RESVEC= 000010 49428 
RETRY 012574 S233%  S6S6 S673% 5678 Sés0x 6546s 
RHAS = 16 b62e08s 
RHBA = 000004 66208 
RHCA = 000034 66208 
RHCC = 000036 66208 
RHCS1 = 000000 66208 
RHCS2 = 000010 66208# 
RHDA = OOD006 66208 
RHDB = 66208 
RHDS1 = le 8 
RHDT = 000026 r} 
RHEC1 = 000044 66208 
RHECe = 00004 66208 
RHER! = 000014 66208 
RHERe = QO0040 66208 
RHERS = 000042 66208 
RHLA = 000020 66208 
RHMR = 000024 66208 
RHOF = 000032 66208 
RHREGS 007150 Saal SS16 5620 b2l28 6252 
RHSN = 000030 66208 
RHWC = 000002 6620 
RPADR 013070 4972e% 6204 bE208# 
RPERRS 012732 6199 pros 620 6202 6620 8# 
RPINIT O13106 a ® 
RPTMR 016436 66208 
RPVEC 013072 4973% 66208 
RPOY 013476 5111 5240 S2S2 5307 66208 
RP& = 000300 49428 
RO =000000 49428 4986 4995 4999 Soos* 5006 Sol6# S017 S022 5024 S065 S067 
S086 50 Slli# $136% 51378 S143# S144# 149 S153 5155* 5156% 5157 
165 5169% S51 177 S209 Selee S2l3# #  $307% * $387 5389 
S$391% sS90# SS94# S597% 5S599# Sba4e * S631 S632% 
* S639% S640 5773% ae8 7 5739 Fett Ss04s 5805 58i2 5814 
S8it# S8ek# S827# 3 $901 $06 $909 5929 S95e# 5953% 
6957% 5958s 6047% 6048% 6049% 6050% 6051# 60608  6061# * 6070 6071% 
* 60804 * 6090% 6095% 6096 * 61 6105* 6106 6lli3% 6lel# 61228 
6128% 61308 6131% 61538 6154# 6188%  6190# ef aie B240%  b6c0# 
Ri =4%000001 49428 Seld# Sele $383 S625#  Sb6eb Fe tH 5633% S634 S637% $7728 5773 6033% 
oe - 6073% 6081% 6085%  60868# * 6099% 61028 6111# 6lile 6182% 6193% 
R2 =000002 4S4ee Sella $213 5388 Saye * $903 6041% 6046 6047 6079 6096% 6097% 
6106# tS 6118# 61338  6241% % 
| =%000003 49428 208 Sel4# SeiS*# 5384 Susee S437% S4S7# S462e Sy80e# S4esS# S490#  SS07% 
SSic# 5591%  5S592% Bees" Beco S6048 * 560% peace Sél4e S6i8e Se4S# Ssc2s 
S90l# 592¢9% $95) 95 b042# 3 6048 60Se# 6082% 6089# 6113 6119% 
612e0% ble! ble4# 6125* 61l2e6% 61278 6128 6l2e9% 61418 614S* 61528 6153 6183# 


MAINDEC-11-DZRPL-B “RPOY FORMATTTER PROGRAM”  MACYI1 27(663) 23-JAN-76 10:26 PAGE 43-63 
OZRPLB.P 11 CROSS REFERENCE TABLE 


6217% 
=*000004 
=%000005 


36 
1 
015456 
012550 
015540 
016270 
016304 
016366 
015566 
015640 
015634 
0156Se 
0157Se 
016056 
016200 
Olbee4 
016250 


aera 


Sebe 489Seb4 §38=—s« Se7e# §=6 S51 0s SS7e* §=6S865 )6=—s«S890)=(«s«S$917 8=©6026# 65338 
371% S376# $389 S567 S78e# 5791 S817% S876* S9el#  S9838 


$371 





-B “RPOY FORMATTTER PROGRAM" MACY11 27(663) 23-JAN-76 10:26 PAGE 43-64 
CROSS REFERENCE TABLE 


° 
be me 


es90000 = 
NINOS. 
Biges eas : 


S868% S919% 65388 
S208 


gs 
ns 


z 


5328 e2t8 $368 2,060 Se OSSD NS 
55S4 5 SS 56 S659. S668 —Sss«CéS674H == =—ssCSBBE2=SsCS6BB Os 59S 
$712 719 73 $747 —s« $79 


ebcbeoececeasir ee 


ae 


SwO2 
SWO3 
SWO4 
SWOS 
SWOG 
SWO?7 
SWO8 
SWOS 
SW 
SW10 
SW11 
ail 
SW 
S14 
SWS 
Swe 
SW3 
SW 
SWS 
SWE 
SW? 
SWB 
SW 


eee 
ae 


$893 s93le 5919 5951# 595S* S960% 654Ss 
S7B86# 
S784 


5973 597S* $977 65418 
59688 





MAINDEC-11-DZRPL-B “RPO FORMATTTER PROGRAM”  MACYI1 27(663) 23-JAN-76 10:26 PAGE 43-65 
OZRPLB.P11 CROSS REFERENCE TABLE 


Shes 


790 


51S2# 
5971# 


99 
8198 
4989 
$128 
5366 


495Se 65308 65748 66208 





MAINDEC-11-DZRPL-B “RPOY FORMATTTER PROGRAM”  MACY11 27(663) 23-JAN-76 10:26 PAGE 43-66 
DZRPLB.P11 CROSS REFERENCE TABLE 

Sous 

916s 

66208 

4428 

10188 

32018 


TYPOCS 
TYPOCT 
SCA 
SNEUT 
-EQUAT 
 HEADE 
: SETUP 
 GWRHI 
* $0820 
-$E0P 
“ SERRT 
- SMULT 
: SPOWE 
” SRAND 
. SRODE 
“Scnve 
$5820 
- $5820 
SCOP 


*e © @ 

RPMMWN 
w 
_ 


aaa85 





MAINDEC-11-DZRPL-B “RPOY FORMATTTER PROGRAM”  MACY11 27(663) 23-JAN-76 10:26 PAGE 43-67 
OZRPLB.P11 CROSS REFERENCE TABLE 


-STYPO 20948 





“RPOY FORMATTTER PROGRAM”  MACY11 27(663) 23-JAN-76 10:26 PAGE 43-68 
CROSS REFERENCE TABLE 


SiS? —_—- $158) =— 8%—té«SGST Pe00 S6e8 (S636 Ss S629“ S817 
60e4 605i 606e 6071 6072 6095 6111 8 =6113 


mt tetera 97 9 
g 8 Sees 


a 


é 


rat 
Be 
De toe tor 
nwo 


Batnas 


w 
— 
tre 
rw 
ae 
-_ 
iO 
wut 
Oo 
— Or 
onu 


BLE 

BLOS 

BLT 

BMI 58 
BNE 

BPL 

BR 


Sanee 


~ 
z= 
= 
on 
38 


aoe 
gant 
SRE 
Be REERRS F 


RRR 
i 





MAINDEC-11-DZRPL-B “RPOY FORMATTTER PROGRAM”  MACY11 27(663) 23-JAN-76 10:26 PAGE 43-69 
DZRPLB.P11 CROSS REFERENCE TABLE 


RaSaS Sees 


Pease es 
oat 


: 
2 





OZRPL-B “RPOY FORMATTTER PROGRAM”  MACY11 27(663) 23-JAN-76 10:26 PAGE 43-70 
CROSS REFERENCE TABLE 


6562 


a3 


4961 
6$57 
$382 


. . . a . - 
| ed oe oe | a a | 


wan 
“ 


4933 
300 


1094 
2269 
3888 


: 


4915 
4957 
6603 


ERRORS DETECTED: 0 


*DZRPLB OZRELB/ CRF =SYSMAC. SMA, RPO4. 009, DZRFLS 
RUN-T Tine: et 4 SECONDS 





SURSEUTSEN ES yaaaaeaes 


E07 


reads, O disk write pages printed 
Lito esuaain gaan onde cca aN my AERP EP Eee aE! 111111110 
apap a apy oS “ geco3321¢ 


+oeeoesesrore 
boa ae 


+46 


+ + , 4a : 
oboavonnod on osvodondosantonnaposononogd odoasenbonod se cONGOSTTT 


55555 DO00C00C0N 1 11 


i Same peresole #3 
111111222222222233312 





